Skip to main content

Full text of "Sinclair Programs 15"

See other formats


, . AV trt/rr' 
















































THE ISLAND 

The ultimate test of logic and deduction! Can you 
solve the hidden mysteries of the South Pacific 
Island on which you have been stranded • and 
escape alive 1 A brilliant classic style adventure 
game to facinate and frustrate you for months' 
ZX Spectrum 48K £7.50 

Written by Martin H. Smith. 


INVASION OF THE 
BODY SNATCHAS! 

At last! a version as fast and furious and as 
frustratingly addictive as the arcade original. 
Landers. M utants. Bombers. Pods. Swarmers and 
much much more combine to produce the 
ultimate space game! 

ZX Spectrum 48K £6.50 

Written by Simon Brattel and Neil Mottershead. 


Please send SAE for our latest catalogue and 
details of our forthcoming software. 

Catalogue FREE with every order. P&P included. 
Please add £0.50 per item for overseas orders. 
Please make cheques/PO's payable to: 
CRYSTAL COMPUTING 
Deo: SPl 
2 ASHTON WAY 
EAST HERRINGTON 
SUNDERLAND SR3 3RX 


ROMMEL’S REVENGE 

A brilliant interpretation of the most visually 
stunning arcade game of all time. Superb high 
resolution 3D graphics with full perspective plus 
a host of new and exciting features make 
Rommel's Revenge the most spectacular game 
ever produced for your Spectrum! 

ZX Spectrum 48K £6.50 

Written by Martin Horsley. 


DEALERS! For details of our excellent 
dealer discounts (including export) 
ring Chris Clarke on 061-205 6603. 


PROGRAMMERS! Written any good 
software? send it to us for evaluation and 
details of our excellent royalty scheme. 


Let your Spectrum be your guide in a totally new 
dimension in adventures in the true spirit of 
traditional role playing games where YOU design 
the scenario. 

I have been a Dungeons and Dragons fan for 
several years....The package provides excellent 
entertainment for all fans of the cults and should 
prove a good introduction to the game". 

....Sinclair User. 

"Highly recommended for its versality, originality 
and quality. Definately well worth obtaining". 

....ZX Computing. 
ZX Spectrum 48K £7.50 

Written by Graham Stafford. 


&E0jTiTiHE iDiFjFjERl N ;GE i! 


Choosing which game to buy from the mountain available is a difficult job, 
especially when everyone claims to produce the best on the market. But how can 
you tell the best from the rest?. To help you decide, read on. . . . 


Very rarely have 
software titles produced 
such universal acclaim 
as ‘Halls of the Things' 
and The Dungeon 
Master’. Now, with three 
brand new programs, 
Crystal continues to set 
the standard of software 
excellence. The 
difference is obvious - 
the choice is yours: 


HALLS OF THE THINGS 

A stunning multi-level maze 'arcade - adventure'. 
"Excellent and dangerously addictive - could 
change the Spectrum games scene 
overnight". ..-Sinclair User. 

"Spectacular - One of the best games I've seen, 
finely balanced between simplicity and 
addicliveness - superb graphics and colour - I 
CAN'T RECOMMEND IT HIGHLY ENOUGH". 

....Popular Computing Weekly. 
ZX Spectrum 48K £7.50 

Written by Neil Mottershead. Simon Brattel and 
Martin Horsley. 


What the 

real critics say. . . . 


The Best or The Rest. 
























Managing editor 

Nigel Clark 

Managing production editor 

Harold Mayes MBE 

Design 

Elaine Bishop 

Assistant Editor 

Rebecca Ferguson 

Program Reviews 

Alison McCulloch 

Group advertisement manager 

John Ross 

Advertisement executive 

Frank Humphrey-Gaskin 

Editorial/production assistant 
Dczi Epaminondou 

Managing director 

Terry Cartwright 

Chairman 

Richard Hease 

Sinclair Programs is published 
monthly by ECC Publications Ltd. 

Telephone 
All departments 
01-359 3525 

If you would like to contribute to any of 
the Sinclair User group of publications 
please send programs, articles or ideas 
for hardware projects to: 

Sinclair User and Programs, 

ECC Publications, 

196-200 Balls Pond Road, 

I.ondon Nl 4AQ 

Programs should be on cassette and 
articles should be typed. We cannot 
undertake to return them unless a 
stamped-addressed envelope is 
included. 

We pay £10 for the copyright of each 
program published and £50 per 1,000 
words for each article used. 

© Copyright 1984 
Sinclair Programs 
ISSN No 0263-0265 
Printed and typeset by 
Cradlcy Print PLC, 

Warley, 

West Midlands 
Distributed by 

Spotlight Magazine Distribution Ltd, 

1 Bcnwell Road, 

Holloway, 

I.ondon N7 
01-607 6411 

Cover Design/Iliustrations 

Ivan Hisscy 


7 LETTERS 


BEGINNERS’ 

SECTION 

ZX-81 

15 CLOCK 
RIVER RESCUE 

16 HOPPIT 

17 CAVEMAN 
SNIPER FIRE 

SPECTRUM 

16 PHASE 


ZX-81 

12 EXAM ROOM 
33 RAT INVASION 

O 0 tVj 

* 34 PROGRAM OF ☆ 

* THE MONTH * 
ABANDONED HOUSE 

39 FORT KNOX 
47 STAMPEDE 
SKY DIVER 
52 GENERAL DOOM 
54 DAMSELS IN 
DISTRESS 


62 WINDFALL 

63 IT’S SNOWING 

AGAIN 

SAVE FREDDIE 

SPECTRUM 

8 SHEEP DOG 
13 STAR 
19 COCONUTS 
24 BUILDER 
27 FLITE 
29 TREE EATERS 
37 MAZEMAN 

44 ENIGMA 

45 MISSILE 

50 CHOPPER SQUAD 
56 LEAVE ONE 

60 ARITHMETIC 

EXPRESS 

61 BMX 


Instructions for graphics characters arc printed in lower-case letters in our listings. They are enclosed by 
brackets and separated by colons to distinguish them and the brackets and colons should not be entered. 

Inverse characters are represented by the letter “i” and graphics characters by “g”. Thus an inverse 
W would be represented by “iw”, a graphics W by “gw”, and an inverse graphics W by “igw”. 

Spaces are represented by “sp” and inverse spaces by “isp”. Whenever any character is to be used 
more than once, the number of times it is to be used is shown before it, together with a multiplication 
sign. Thus “6*isp” means six inverse spaces and “(g4:4*i4:g3)” would be entered as a graphic four, 
followed by an inverse four repeated four times, followed by a graphics three. 

Where whole words are to be written in inverse letters they appear in the listings as lower-case letters. 
Letters to be entered in graphics mode on the Spectrum arc underlined. 

Inverse characters may be entered on the ZX-81 by changing to graphics mode and then typing the 
appropriate characters and on the Spectrum by changing to inverse video and typing the appropriate 
letters. Graphics characters may be entered on the ZX-81 by changing to graphics mode and then 
pressing symbol shift while the appropriate characters are entered. On the Spectrum graphics characters 
may be obtained by changing to graphics mode and then pressing the appropriate character. User- 
defined graphics will appear as normal letters until the program has been RUN. 


SINCLAIR PROGRAMS January 1984 





Transylvanian Tower 

A spine chilling adventure. - - 
enter via the dungeons .,. 
navigate your way through 
500 3-D rooms... survive 
the swooping vampire bats 
-.. reach the terrifying top - -. 
confront and kill Count 
Kreepie, ridding the world 
of this Transylvanian Terror 
Can you survive the Top of 
the Tower? Full save routine 
for use during the hours of 
darkness! 48K Spectrum 
£6.50 


Super Spy 

Locate the secret island 
hideaway of the mysterious 
meglomaniac Dr. Death. 
Follow his trail across 
continents, through 
complex puzzles and 3-D 
mazes. Discover the 
entrance to his under¬ 
ground lair — but beware 
— even with your death- 
defying gadgets his evil 
henchmen may still win the 
day! 

With save routine for part 
time secret agents' 48K 
Spectrum £6.50 



AVAILABLE FROM W.H. SMI 

AND ALL LEADING 



DEALERS —GENEROUS DISCOUNTS AVAILABLE CONT 


Can you discover the fabled treas 
by lethal crabs and menacing ele 
secrets of the Lost City as you wJ 
ancient columns. Explore the hur 
the treacherous seabed, each wit 
dangers. 

Sensational 3-D graphics used as 
before! 48 K Spectrum £6.50. Fuf 

RICHARD SHEPI 

.......... 

SOFTWARE 


RICHARD SHEPHERD 
SOFTWARE 


RICHARD SHEPHERD 
SOFTWARE 


RICHARDSHEPHERD 

SOFTWARE 

ELM HOUSE, 23-25 ELMSHOTT LANE, CIPPENHAM. SLOUGH, BERKSHIRE. 


CREDIT CAf 
RING (062 
FOR EXPRE 


AJI programs are sold supject to me condition tnat they 


may not. Dy way of trade or otherwise, fie lent, hi 


lent, hj 

—3 


v 





ro IMAGINATION 


II 


rH, JOHN MENZIES, BOOTS* 

rOMPUTER STORES 



RICHARD SHEPHERD 
SOFTWARE . 


res of Atlantis, guarded 
trie eels? Uncover the 
tier among the timeless 
Jred deadly sectors of 
its multitude of hidden 


pave routine. 

iERD 


RICHARD SHEPHERD 
SOFTWARE 


ACT JOHN SALTHOUSE ON (06286) 63531 FOR DETAILS 


Invincible Island 

by Peter Cooke 

Exhaust your ingenuity in 
the quest to find The Seven 
Parchments of Xaro and 
their meaning! Will they 
lead you to undreamt of 
treasures or eternal doom? 
Explore the mysteries of the 
stockade and puzzle within 
the Pagoda! A spectacular 
split screen graphic and text 
adventure to braintease you 
for weeks! 

Adventurous graphics for 
every location. Save routine 
48K Spectrum £6.50. 


Everest Ascent 

Stake your claim to the top 
of the world in this strategic 
vertical adventure. Conquer 
the summit of the world's 
highest peak!... struggle 
from base camp to base 
camp... survive the 
elements... watch out for 
avalanches, thin ice and 
wayward sherpas... 
encounter abominable 
snowmen and cross 
bottomless crevasses! 

A game of skill, strategy and 
planning — a graphic 
simulation of man's ultimate 
endeavour! Save routine. 
48K Spectrum £6.50. 


^ hotline richard^hepherd 

36)63531 

SOFTWARE 

ELM HOUSE, 23-25 ELMSHOTT LANE, CIPPENHAM, SLOUGH, BERKSHIRE. 

Id out. resold or otherwise circulated without the written permission of Richard Shepherd Software Ltd 


Selected titles available at larger branches 






THERE’S NO 
PRESENT LIKE 
THE FUTURE. 


THE WORLD’S FINEST PROGRAMMING 
TUTORIAL FOR ONLY £12.95. 

Thousands who own. or would like to own home computers have 
yet to experience the feeling of discovery that comes when you write your 
own programs. Yet learning programming can be easy. 

' Learn Basic’ from Logic 3 is the ultimate development of the method 
first devised at Strathclyde University-a straightforward, easily understood 
tutorial written by Professor Andrew Colin and Veronica Colin, authors of 
Britain^ best-selling tutorial package. 

Using the method tested by university students and used 
successfully by over 200,000 home computer users, 'Learn Basic' runs on 
your own computer and explains everything in clear non-American 
English without jargon or computertalk. In a matter of hours, you will be 
writing programs that work. 

Essentially, ‘Learn Basic'and the rest of the'Leam Computing’ 

Series that wi 11 fol low soon are designed for people who want to 
keep abreast of the computer age. For people who realise that 
understanding computers is the key to future success,at school 
at work and as a parent. ■ / O 



Get'LeamBasic'byLogic3-twotapesandafull-size manual for. 
Spectrum or Dragon (others soon) at just £12.95. 

At that price, it's a gift. 

Buy the Logic 3 'Learn Computing' Series at computer shops and 
major retail stores all over Britain. In case of difficulty, write to Logic 3 in 
Windsor. 

TO: Logic-3 Lid, Mountbatten House. Victoria Street. Windsor SL4IHE. 

If you would like to know more about using and programming a computer 
in your home, send this coupon lor your tree copy of our 16-page explanatory 
booklet "100 things you wanted to know about computersr 

It will help you cut through the jungle of computer jargon, and give you 
news about software developments - even games. Q 

Or send (or our software catalogue (tick either or both). □ 

Name_ 

Address_ 


Christmas. 


Make your future, and your family's future, richer this 


- THE KEY TO THE WORLD OF TOMORROW_ 


-microcomputer 

SP1/84 


iJ 







ON BEHALF of all your 
readers, thank you for pub¬ 
lishing a wonderful maga¬ 
zine. In my second breath I 
implore you to publish fort¬ 
nightly. That would satisfy 
everyone and would prevent 
the agony of waiting. Of 
course I am speaking feeling¬ 
ly as I am more than 70 years 
old. This is my only pastime 
and it takes me about two 
weeks to try all the programs. 
There have been several 
times a program has not run, 
but a letter to you soon solves 
any problems. 

I was interested in the let¬ 
ter from Allisoun Fern; I did 
not know there were different 
models of the Spectrum. 
There is nothing in the man¬ 
ual which states the model or 
how to identify from other 
models, so your reply was of 
great interest; the IN stat- 
ments are now committed to 
my memory bank. I bought 
my Spectrum in June. Is 
there anything about this 
model on which you could 
enlighten me?. 

I have all the time in the 
world to enter any program 
so I know everything I enter 
is exactly as printed. For in¬ 
stance, two programs — Sla¬ 
lom and Quasimodo — in the 
November issue failed to run; 
are they not reading the 
data?. Could that have any¬ 
thing to do with the model, 
or do you think some part of 
the computer is faulty? 

I know you must be up to 
your necks in letters. Could 
you set up a telephone an¬ 
swering service, since the 
questions would be mainly 
about errors? A set of ready¬ 
made answers could be ready. 

There must be many pro¬ 
grams you have published 
which newcomers do not 
know about. Could you re¬ 
print them? When you come 
to the financial part, your 
magazine proves the cheapest 
and, as far as programs go, 


they surpass all the opposi¬ 
tion. I would not mind if you 
raised the price so long as you 
increased the number of pro¬ 
grams and added some inter¬ 
esting features. 

Why not increase the num¬ 
ber of readers’ letters? Many 
computer thumpers would be 
over the moon to see theirs 
printed. As I have seen in 
your letters page, items and 
information other readers 
have to offer are extensive. 

That would lead to us 
learning the computer to be¬ 
come more capable and, in 
time, repay you by sending 
programs we have composed. 
What a happy world if this 
could happen. 

C Fowler, 
Sheffield. 


Record 

Breaker? 

I AM writing about a pro¬ 
gram in the July issue of Sin¬ 
clair Programs, Alphabet 
Time. On my first attempt on 
the program I got 120 units. I 
would like to know if anyone 
else has written to say they 
have beaten my record. 

Andrew Lamb, aged 11, 
Edgbaston, Birmingham. 

Werewolf’s 
Lair Changes 

IN THE OCTOBER edition 
in the game Werewolf Lair a 
few mistakes were made. The 
peeks which make sure that 
you or the monster do not go 
through the walls of the maze 
are set up for the wrong 
graphics. To solve this you 
can either change all the 
graphic Hs in the maze plot 
to graphic As or change the 8 
in lines 370, 570 and 630 to 
136. With the second method 
you must also change the 


graphic As in lines 90 and 
290 to graphics Hs. 

I found this a very enjoy¬ 
able game and have managed 
to achieve a high score of 
753. 

Tom Liptrot, 
Burscough, 
Lancashire. 


ZX-81-to- 

Spectrum 

Conversion 

I AM a newcomer to comput¬ 
ers and I own a Spectrum 
48K machine. I find your 
magazine very helpful but I 
have one problem which you 
could solve for me. 

In the ZX-81 listings there 
are certain commands which 
are foreign to me — i.e., 
FAST, SLOW, g.w., g.a. 
Could you supply me with a 
list of Spectrum commands 
to replace them in the listings 
so I can make full use of your 
magazine? Perhaps the listing 
could be printed in the maga¬ 
zine for the benefit of other 
Spectrum owners. 

M Gibson, 
Stoke-on-Trent. 


Letter not 
Figure 

IN PRINTING my letter in 
the October issue of Sinclair 
Programs you made a small 
mistake which made non¬ 
sense of the letter. The last 
part should read: Line 135 IF 
n=10 and y= 16 THEN 
PRINT AT 13,17; 
“*”:PAUSE 7*(4-/)+10: 
PRINT AT 13,17; “ ” 

A Ferguson, 
Middlesbrough. 


Mark Three 
Defender 

YOU RECENTLY sent me a 
reply to my letter concerning 
a fault in the Defender pro¬ 
gram published in the July 
issue of Sinclair Programs. 

You said in your letter that 
a number of your readers had 
experienced the same fault 
i.e., failure of ‘Cap Shift’ and 
‘Z’ keys to move the space¬ 
craft up and down. 

I have delved into this fault 
and have come up with a 
solution to the problem. If 
line 2020 of the program is 
amended as shown, all will be 
well. 

My amended program now 
works perfectly. 

I hope that this infor¬ 
mation will be of use to you 
and your readers and that it 
will be published in Sinclair 
Programs in due course. 

C A Bailey, 
Ely, 
Cambs. 

Readers with Model 3 Spec- 
trums who have experienced 
problems with the DEFEND¬ 
ER program may find this 
amendment useful. 



More 

Graphics 

Programs 

THANK YOU for your pro- 
grams like Contour, Mirror 
Patterns and other good 
graphics wonders in Novem¬ 
ber Sinclair Programs. 

I hope you will try to have 
one or more each month, as 
they can be only a few lines 
but be very good. 

Bjorn Jonnor, 
Reykjavik, 
Iceland. 


SINCLAIR PROGRAMS January 1984 



10 REM "SHEEP DOC" 

20 DIM a<4>' DIM b< 4 > • DIM c< 4 
FOR n-i Tu 4 LET *<n>«INT <R 
ND*31 HI LET c<nH0' LET b<n>-I 
NT <RND#20H1> NEXT r> 

30 LET x-10- LET *-10 
40 LET t-0 
50 LET a*-"< _i>" 

60 LET 1-3 
70 LET b*-"< o >" 

Ob INPUT "DO WANT PASTURE OR D 
ESERT PxD".a* IF »*-"P" THEN P 
APER 4 

30 IF s*="cT THEN PAPER 6 
35 IF a*-"" THEN PAPER 6 
97 BORDER X* CLS 
100 FOR n-0 TO ?• READ 4' POKE 
USR "P"+n,4 NEXT n' DATA BIN 0, 
eiN 10000000,BIN 10000100,BIN II 
000111,BIN 01111111,BIN 01111100 
,BIN 01000100,BIN 01000100 
110 FOR n-0 TO 7' READ 4 POKE 
USR "o"+n,q' NEXT n' DATA BIN 0, 
BIN 0,BIN 0000010,BIN 01111111,B 
IN 01111110,BIN 01000103,BIN 010 
00100,BIN 01000100 
120 FOR n-0 TO ?• READ 4’ POKE 
USR ”l"+n,4 : NEXT n< DATA BIN 0, 
BIN 00000001,BIN 00100001,BIN 11 


1OO011,BIN 11111110,BIN 00111110 
,BIN 00100010,BIN 00100010 
130 FOR n-0 TO ?■ READ 4' POKE 
USR "u”+n,4 1 NEXT n> DATA BIN 0, 
BIN 0,BIN 01000000,BIN 11111110, 
BIN 01111110,BIN 00100010,BIN 00 
1O0010,BIN 00100010 
140 FOR n-0 TO 7' READ 4’ POKE 
USR "T"+n,4 1 NEXT n- DATA BIN 0, 
BIN 00000000,BIN 00003100,BIN 11 
000111,BIN 11111111,BIN 11111100 
.BIN 01000100,BIN 01000100 
160 PLOT 103,80■ DRAW 32,0' DRA 
W 0,8 DRAW -32,0' DRAW 0,-8' PR 
INT AT 10,15;" PLOT 120, e0' D 
RAW 0,6 PLOT 128-60' DRAW 0,8 
190 PRINT INK 0;AT 0,0;"< 32*i» 
P>"; INK 6, PAPER 0;AI 0,24;"DOG 
S-< pop >" 

20CTF0R n-1 TO 4 
220 PRINT AT x,v;" " 

230 IF INKEY*-“7" AND x>l THEN 
LET ■**-"< i >" ■ LET x-x-l BEEP 
.001,35' BEEP .003,55 
240 IF lNKEY*-"b" AND x<21 THEN 
LET a*-"< _i_>" • LET x-x+1 • BEEP 
.001,25 BEEP .003,45 
250 IF INKEY*-”8" AND *<31 THEN 
LET a*»”< _P >"> LET *-*+!- BEEP 


.001,15 BEEP .003,35 
260 IF INKEY*-"5" AND v>0 THEN 
LET a*="< !>"• LET v«*-l BEEP 
.001,5 BEEF .003,25 
263 PRINT INK 1;AT x,a;a* 

265 IF c< n >-l AND n<4 THEN NEX 
T n 

267 IF c< n H1 AND n>-4 THEN GO 
TO 710 

270 PRINT AT b<n>,a<n>; " " 

280 IF a<n»* AND a<nX2l THEN 
LET a<n>-a<nHl > LET b*-"< o>"' 
GO TO 350 

290 IF b<n»x AND b<nX21 THEN 
LET b< n Hb< n HI LET b*-"<_o >" « 
GO TO 350 

300 IF b< nXx AND b<n)>l THEN 
LET b<n>-b(n>-l ■ LET b*-"<_u>"’ 
GO TO 350 

310 IF a< nX* AND a<n»0 THEN 
LET a< n >-a< n HI • LET b*-"< _u_>" ■ 
GO TO 350 

320 IF 4<n!>-0 THEN LET a<n Ha< 
nHl 

330 IF a<n>-31 THEN LET a<n Ha 
<nHl 

340 IF b<n>-21 THEN LET b<n)-b 
<nHl 

345 IF b(n>-l THEN LET bcn>-b< 


SINCLAIR PROGRAMS January 1984 




360 IF a<n>*l5 AND b<rO-ll THEN 
LET c< n )■1 1 LET a<n>«n+12 LET 
b‘. n >*10' PRINT RT 11/15;" " PR 
INT RT b<n>,a<T>>;"<_sr ' BEEP .O 
1/10 1 BEEP .005/60 1 BEEP .03,20 
360 IF x-b<l> AND 1 ) OR x-b 
< 2 > AND OR x-b<3> AND *-a 

<3> OR a<4>-« AND b<4)-x THEN L 
ET l-l-l PRINT RT 0,29+1;" <isP > 

" LET x-10 LET *-10 BEEP .1,- 
30 BEEP .05,0' BEEP .3,-10 IF 
l<-0 THEN GO TO 900 
700 NEXT n 

710 PLOT 103,66 1 DRAW 32,0 DRR 
W 0,0' DRAW -32,0' DRAW 0,-6' PR 
INT AT 10,lb;" H = PLOT 120,60 D 
RAW 0,8' PLOT 126,80 DRAW 0,6 
720 FOR m-1 TO 4 IF c<m>*l THE 
N PRINT PAPER 0; INK 7;AT 0,12 
; ""SHEEP*"; AT 0,17+m; "< a)" PRIN 
T AT bCmXacm}; "< _o>“ 

740 IF c< 1>-1 AND c< 2 >=1 AND c<. 
3>-l AND c< 4 >= 1 THEN GO TO 1600 

741 NEXT m 


745 LET t-t+1' PRINT PAPER 0; 
INK 5;AT 0,3;"TIME*";t 
750 GO TO 200 
800 GO TO 200 

900 PRINT AT 10,10J"vou.'r dead" 
916 PRINT FLASH X; PAPER 2; IN 
K 5;AT 11,3;"K«eP awa* from the 
sheeP"’ PAUSE 78' PRINT INVERSE 
l; INK, 1; AT 12,8; "PRESS ANY KEY 
IF INKEY*-"" THEN GO TO 910 
320 RUN 

100O PRINT FLASH 1; PAPER 0; IN 
K 5;AT 0,3; "TIME-";t. 

1010 PRINT AT 10,10;"Game Over", 
PAPER 1, INK 6;AT 11,7;."YOU CAM- 
E "; INT < t/30 >; " PLACE" 

1020 IF INT <tx2SX-3 THEN LET 
h*-"!!!EXCELLENT!!! 100V GO TO 
1100 

1030 IF INT <tx25><-4 THEN LET 
b*-"GREAT! I 8(3'/." GO TO 1100 
1040 IF INT (t/23)<-5 THEN LET 
b*-"GOOD! 70V' GO TO 1100 
1050 IF INT <tx2SX-6 THEN LET 
b*-" AVERAGE 60V GO TO 1100 
I860 IF INT <t/25><-7 THEN LET 
b*«"FAIR 45V' GO TO 1100 


1070 IF INT <t/"25X*8 THEN LET 
b*“"SLOW! 30k"' GO TO 1100 
1080 IF INT <tx25><-10 THEN LET 
b**"NOT AT ALL GOOD 20k"' GO TO 
1100 

1090 IF INT <t/25»10 THEN LET 

b*-"R LOAD OF Ml! 10k" GO TO 1 
100 

2000 PRINT INK 7; PAPER 2;"YOU 
ARE ",b*; 

2010 FOR n*l TO 21 PAUSE 5 PRI 
NT AT 18,15; “< PV';AT 18,13;"<_P. 
; AT 18,17; "< _P )" 1 BEEP .001,10 
BEEP .01,20' PAUSE 5' PRINT AT 
18,15;"<_t)";AT 18,13;"<_tr;AT 
18, 17; "< tX' BEEP .001,0' NEXT 


2111 LET a-8 LET b-50 LET c*-l 
2200 BEEP axiO000,b' LET a-a+1' 
BORDER INT <RND*7>' IF a-20 THEN 
LET a*10 LET b-b+1 

2210 IF b*60 THEN LET b-0 
2220 GO TO 2200 


H ERD YOUR wandering sheep 
into the sheep dip, controlling 
your sheep dog with the cursor 
keys. Do not run into them but bark at 
them from a safe distance. 

Sheep Dog was written for the 16K 
Spectrum by Ian Wombwell of Bishop 
Auckland, County Durham. 

Characters to be entered in graphics 
mode have been placed within brackets. 
These brackets should not be entered. 


SINCLAIR PROGRAMS January 1984 






Extend your 16k 
Spectrum to 48k for 
just £ 2300. 

And get a Free 
program worth £ 4*50 
into the 
bargain. 


SP48,32K Memor y Extension with Program — £23.00 

Now, our SP48 offers even better value. 

Because now, we re not only offering you the facility to upgrade your 
16K Spectrum to 48K. we're also offering you the opportunity to be able to utilise 
this vastly extended memory quickly and easily. 

For £23 all you need to do is plug the chip-set into the sockets prowled 
by Sinclair on your issue 2 (or £35 for issue 1) and you have a standard 48K 
Spectrum fully compatible with all Sinclair add -ons and very lew in power 
consumption. 

There is no soldering required. 

Fitting and removal are easy 

And the SP48 carries our full warranty and is upgradable, on a part 
exchange basis, to SP80 

Then all you need to do is LOAD our specially written 48K guide 
program. 'Beyond Horizons', and your 48K computer will guide you through its 
memory. 

With no need to labour through manuals. 

This will save you time, because we all know how easy it is to get lost with 
memory maps. 

SP80 Pag ed 64K memor y extension — £46 

The fitting, power consumption and add-on compatibility are identical to 
the SP48 (Issue 1 Version £50). 

It can be used as a standard 48K. but software instructions can switch to a 
second page of 32K 

But this is not recommended for the complete beginner. 

Yet it is of tremendous benefit to the serious user And an SP80 FORTH 
compiler will be available in late September. 

For a fit and test service at our premises £3, and by registered post £7. 

MAXIMEM ZX81.32K- £39 (PLUS ONE USED IK 
Z X81I64K - £59 (PLUS O NE U SED lKZXglj 

The MAXIMEM 32 and 64K is a modified ZX81 and not just a RAM 
pack. It fits inside the case. 

We also give a six-month guarantee on the computer, regardless of the 
age of your trade in ZX81. 

The extra memory uses only a quarter of the power consumption of a 


Is the manual past chapter 24 a mystery to you? ‘Beyond Horizons’ 
show's 48K Spectrum users how to PEEK and POKE systems 
variables, how to manipulate the display file, how to control the 
attributes, how to find out how much spare memory is left and much, 
much more. With the SP48 this program is free. On its own. £4.50. 


16K plug-in memory, and does not interfere with any standard add-ons. such as 
printers RS232 or other interfaces. 

ZX Slowloader — £10 

The ZX Slowloader is a software masterpiece that will help you to LOAD 
ZX81 programs onto a Spectrum, saving hours of typing time. 

The Next Robotics Exclusive. The Trickstick 

This new joystick is a revolution in computer games control. With our 
Trickstick from one to eight players will be able to play simultaneously. 

It will be on sale soon - see our next advertisement. 

I All products on this order form are in stock at the time of going to press Same day dispatch 
■ for phoned Access and Visa orders. 

I ToEast London Robotics Lid: Please send by return (tick items required) 

LJ MAXIMEM 32K (£39) 64K (£59) + lkZX81_ 

| □ SP48(Issue 1 £35) (issue2 £23)_ 

C] SP80(Issue 1 £50) (Issue 2 £46)_ 

I D SLOWLOADER £10 _ _ _ 

□ ’BEYOND HORIZONS" program £450_ 

| O Free catalogue (SAE only)__ 

• Ftostage 0.65p. I enclose a cheque/PO (or_ 


I m~n i i i i i i i i i i i i 

| Name___ 


SB 


I East London Robotics Ltd.. Gate 11. Royal Albert Dock. London E16 
1 24 Hour Information Service 
Tel: 01471.3308 

I 24 Hour Access and Visa ordering 
Tel:014744715 

Special Enquiries: Tel 01474 4430 
| Telex 8813271 


EAST LONDON 


HEEETISS 


10 


SINCLAIR PROGRAMS January 1984 







ORWIN SOFTWARE: 


ZX81 & SPECTRUM 

SUPER SOFTWARE AT LOW PRICES 


NEW! FOR 16K SPECTRUM 


(will also run on 48K Spectrum) 


"quantity as well as quality" 

Sinclair User, Oct "82 


"if each game was on a separate tape and 
selling for £5 each I would still recommend 
them" 

ZX Computing, Oct/Nov '82 


"Easy to operate, graphically impressive 
and good value for money." 

The Times. 11 th Dec "82 


"Definitely good value for money at £6 
A smooth clear display and a relatively 
fast response from the keys. Graphics are 
as good as you will ever get on the 81." 

What Micro? Nov "83 


[□cf[5nj 

\ ai rn * b r 
JajLjJjaL 


CASSETTE A 

GHOST GOBBLER 

Eat the ghosts before 
the ghosts eat you 
Eat a star and you 
can chase the ghosts 
for a while. 


AUENKILL Control lasers, rockets and a 
force field to stop the aliens from landing 
MOUSETRAP Trap the mouse in the corner 
but not anywhere else. 

REVERSI A game of skill with simple rules 
but sophisticated tactics. Play against the 
computer. 

LASER DEFENCE Control the laser sight to 
shoot down the alien ships. Machine code 
sound routines. 


Ten programs for £6 

TANK BATTLE For 2 players simultaneous 
ly or play against the computer. Each play 
er has 2 rotate controls and move and fire 
controls. The tanks fire steerable missiles. 
PHOEBUS A puzzle. 

BLACKSPOT Gobble the stars and avoid 
running into black spots created by cross 
ing your own path 

CUBE Manipulate a cube any size from 
2*2*2 to 7*7*7. 

MINEFIELD Collect the crowns while 
avoiding the mines and the electrified 
fence. 

plus an extra . 


CASSETTE 1. eleven pro 
grams (including 7 in machine 
code) 

for IK ZX81 £3.80 


CASSETTE 2. 

Basic 


ten games in CASSETTE 3. eight programs 
(including 1 in machine code) 


£5 for 16K 2X81 


CASSETTE 4 

ZX SCRAMBLE (machine code) with 3 stages. 

Bomb and shoot your way through the fortified caves. 


8 games for 16k ZX81 £6 

GUNFIGHT 
(machine code) 



INVADERS 
(machine code) 






GALAXY INVADERS (machine code) 

Fleets of swooping and diving alien craft to fight off. 

SNAKEBITE (machine code) 

Eat the snake before it eats you. Variable speed. Ivery fast at top speed) 
LIFE (machine code) 

A ZX81 version of the well known game. 

3D TIC TAC TOE (Basic) 

Played on a 4 * 4 > 4 board, this is a game for the brain. It is very hard to 
beat the computer at it. 


7 of the 8 games a 


le. because this is much faster than Basic. (Some of these games were previously availat 
J. Steadman) 


BYTE MAN (machine code) 


CASSETTES 8 games for 16k ZX81 £6 
BREAKOUT (machine code) 





i§Sl 




SPACE RESCUE (machine code) 
(previously available from Mindseye) 


BLITZ (machine code) 



PLANETOIDS (machine code) 

Rotate, move, fire and hyperspace controls. 
Wide range of choice of speed and difficulty 

DODGEMS (machine code) 

Dodge the computer s car while eating the 
dots. 

DRAUGHTS (machine code) 

Three skill levels. 

MERCHANT (Basic) 

Make your fortune on trading voyages in the 
Mediterranean and beyond 


AUhth-iJ 

7 of the 8 games are in machine code because it is much faster than Basic. 


New polish 
the qualm 

the setee 
grams «< 
one who 
plays gar 


■l Orwi 




high qualify and would 

sr,lrii; r HS 

could lean' a lesson Irom 


"STS 


d 4 


Please make your cheques payable to ORWIN SOFTWARE. 

ORWIN SOFTWARE. Dept OSP, 26 Brownlow Road, Harlesden, London NW10 9QL. 


ZX81 and SPECTRUM SOFTWARE WANTED (Royalties or buy outright) 


pusIP^Ci 


SINCLAIR PROGRAMS January 1984 




























XAM ROOM 


was written by 
|"H William Buckingham, aged 12, 
A J of Fakenham, Norfolk for the 
16K ZX-81. Using keys 1 for left and 0 
for right, you must rush about the main 
hall collecting papers and avoiding 
teachers. Then you progress to the 
examination room and hope to return to 
your seat for a bonus 100 points. The 
program includes machine code, so be¬ 
fore running it enter the following as 
direct commands: 

POKE 16514,42 
POKE 16515,14 


POKE 16516,64 


EXAM ROOM 


POKE 16517,78 
POKE 16518,6 
POKE 16519,0 
POKE 16520,201 
POKE 16510,0 


1 REM 1234567 

00 

<RND*30)+1 j "< 1* 



110 PRINT RT X/ Yj 

1070 NEXT F 



120 LET L-USR 16514 

1075 PRINT RT 10 

i,0; "<7*isP ' i"'sP 


130 IF L>-128 THEN GOTO 500 

. i'<. v 


140 IF L-23 THEN GOTO 300 




150 PRINT "0" 

J RT 2, Ij" '■ 


180 GOTO 70 




300 LET S-S+l 


101" < ISP >" 

m'5*iiP Min hill '0#isP >“ 

310 LET T—T 

1095 NEXT F 


340 GOTO 70 

1096 PRINT RT 9, 

8j" ";RT 11,8;" 


500 PRINT RT X,Y.LHR« L 


P y> 

50 NEXT F 

505 PRINT RT 18,5;"ANOTHER GAME 

1100 SLOW 


? <YXNV 

1105 RETURN 



510 PRINT RT 21-0;"YOUR SCORE 




"jS 


1; "< ioVjRT 1,1; 


515 INPUT R® 


";AT X-2,Yj" ";RT X-3,Y; " " 

520 IF R«-"Y" THEN RUN 

2020 NEXT F 



530 GOTO 500 

2030 LET S-S+10O 



1020 FOR F-l TO 110 

2040 PRINT RT 21 

,0j"BONUS 10O. YO 

80 LET X-X+T 

1030-PRINT RT 1NT < RND*18>+l,INT 

UR SCORE ’ ";S 

100 LET Y=Y+<INKETt="0" )-(INKEY 

<RND#30 HI; 



100-LET Y-Y-K INKEY®-"0" )-< INKEY 

1040 NEXT F 



•-"1") 

1050 FOR F-l TO 20 

9999 SAVE "EXflm" 



1060 PRINT RT INT <RN0*18 >+l ,INT 

9999 RUN 



12 


SINCLAIR PROGRAMS January 1984 







L OST in unknown space you 
meet rubbish which must be 
avoided at all costs, stars which 
you must not touch, a black hole the 
sides of which you must not touch, 
coloured fuel dumps which you must 
try to hit, and red booby-trapped fuel 
dumps which you must also avoid. Steer 
left with 5 and right with 8. 

Star was written for the 16K Spec¬ 
trum by P Loach of Hadleigh, Suffolk. 


16 GO SUB 9006 
2t> FuR f-1 TO 20 
0k) FUR 9-1 TO 22- GO SUB scrol 
1 NEXT 9' GO SUB 1006+1000T1NT 
<RND*4>' NEXT f 

40 INK 1 PAPER 3- FLASH 1- CL 
S FOR f-1 TO 30 BEEP .05,f B 
URDER f/7’ NEXT f PRINT-tfO;" 

YOU SAVED EARTH" BEEP 1,10 
36 PRINT AT 1,3; FLASH l;"Anot 
her 9ame FLASH 0;" You a 

cored £. reached adventure 


720 FOR 9-1 TO 30' BEEP .05,9' 
BORDER 9/7 CLS NEXT 9' 00 TO 
30 

1006 LET P-lS 

1010 FOR 9-1 TO 100 GO SUB scro 
ll PRINT AT 0,xj INK 6;"a" 

1020 PRINT AT 21,0; PAPElTT3ND*5+ 

1 ;" 

-;AT 21,P; PAPER 0;" "> ■ 0 

0 SUB move 00 SUB hit LET s-s+ 
1 LET P-ABS <. P+1NT <RND*3>-1-<P 
-23>> NEXT 9' RETURN 
2600 INK 3' FOR 9-1 TO 100' LET 
s-s+1> IF RND>RND THEN PLOT B*I 
NT <RND*27>,7 DRAW 39,0 
2010 00 SUB scroll- PRINT AT 0,x 
; INK 6;"s"' GO SUB move 1 00 SUB 
hltl’ NEXT 9’ RETURN 
3000 INK 7 FOR 9-1 TO 100' LET 
s-s+1 00 SUB scroll’ PRINT TAB 

RND*31; BRIOHT 1>"* h jAT 0,xj INK 
6; V; AT 21,x; BRIOHT 1;"*" AND 
RND>.3■ GO SUB hit' GO SUB move 
NEXT 9' RETURN 

4000 INK 0' CLS ■ FOR 9-1 TO 100 
■ LET a-ATTR <l,x>> LET i=INT <R 
NDT3+1>■ 00 SUB scroll PRINT TA 
e RND*31; INK i; FLASH l-2A 
T 0, x; INK 6;"s^'' IF a>l27 THEN 


GO TO 710 

4O10 LET s*s+2#a 1 BEEP a/20,0’ G 
0 SUB move NEXT 9' RETURN 
9000 FLASH 0- BRIGHT 0- BORDER 0 
■ PAPER 0' INK 2- CLS 
9010 LET hit1-650 ! LET x-15' LET 
scroll-500’ LET move-600- LET h 
it-700- LET s-0 

9020 PRINT INK 6;TAB 9;"SPACE V 
OYAGE 1 " '" You are lost in unknou 
n space"'" Dunn9 sour vosa9e so 
u will meet some sPace rubbi 
sh'"'"You must avoid this at all 
cost"'"Also sou mas meet a blac 
k hole"'"8. inside sou must not t 
ouch the"'"sides.Also sou must a 
void all"'"stars.Finalls sou 9ai 
n fuel bs"'"crashin9 into the co 
loured fuel"'"dumps <■> but bewa 
re,the red "'"dumps are boobs tr 
aPPed" 

9030 PAUSE 1- PAUSE 0 RESTORE 9 
030- FOR f—0 TO 7- READ 9' POKE 
USR "s"+f,VAL <"BIN "+STR* 9)' N 
EXT f RETURN > DATA 11111111,10 
0100 , 111100 , 1100011 , 1111110,1111 
1111,9,1111110 

9999 BORDER 7 PAPER 7’ INK 0- F 
LASH 0 


66 IF INKEY*-"s“ OR 1NKEY*-"Y" 
THEN RUN 

79 IF INKEY*»"n" OR INKEY*-“N" 
THEN GU TU 9999 
60 GO TO 60 

500 POKE 23692,20 PRINT AT 21, 
Q" RETURN 

600 BEEP .01,0' LET x-x+<INKEY* 
-"6" AND x<30>-<INKEY*-"5" AND x 
>’ RETURN 

650 IF SCREEN* tl,x»"" THEN R 
ETURN 

660 GO TO 710 

7U0 IF ATTR <1,X X8 THEN RETUR 


710 INK 6 PAPER 2 FLASH 1’ CL 


SINCLAIR PROGRAMS January 1984 


13 










For both the 16K and 48K versions of the Spectrum, the 100 programs in this large-format paperback 
and cassette provide a unique software library for the new user. Games, business applications, graphics. 

science, mathematics and home uses are among the topics covered. 

A cassette containing the 100 programs, with a booklet that explains how to load and run the programs, 

_ is available as an optional extra. 

|_] £7.95 paperback c. 220 pages 13-634766-5 December'83 

| £12.50 cassette including VAT 13-634774-6 January'84 



Published in June ‘83—a practical 
guide to the ZX Spectrum, ideal for 
first-time users. Graphics, sound and 
making music on the Spectrum are 
special features of this book. 

“The straightforward text is well written, 
punctuated by cartoons and over 170 
helpful diagrams . . a handy book 
that complements Sinclair’s own 
manual very well." Electronics and 
Music Maker 

□ £6.95 paperback 
240 pages 13-985028-7 


Prices, which include postage and packing, 
are correct at the time of going to press 
but may be subject to change. 


ordered from your usual bookseller 
fficultv from Department 30. Prentice-Hall International, 
le End. Hemel Hempstead. Hertfordshire I-IP2 4RG, 


Orders 

These books and cassettes ca. 
or in case of difficulty from Dep 

66 Wood L< - 
England. 

Please mark the number of items you wish to order in the box beside each 
title and return the advertisement to the address above Prices include 
postage and packing Please allow 28 day* for delivery 

I authonse you to debit my credit card account with 

the amount of £_ 

My Access/ Amencan Express/Bardaycard No. is 


I enclose a cheque/P O for £ _ 


to INTERNATIONAL BOOK 


Prentice Hall£1 mi EjInternational 


J 


SINCLAIR PROGRAMS January 1984 






























































1 LET H=0 

5 PRINT RT 20,0;"<32*i*P )" 

10 LET S-0 
20 LET D*10 
25 LET K-0 
40 LET B-2 

50 LET A-INT <RND*26>+3 

55 PRINT RT 0,0;S 

56 PRINT RT 0,30)H 

60 PRINT RT 19,D;" <92'96 01) 

70 LET D-D+< INKEY8—"8" AND D<2 
8>-<INKEY«-"5" AND D>1 > 

80 PRINT RT 8,flar¬ 
es PRINT RT B-l/fl;" " 

90 LET B-B+l 

92 IF A-D+2 AND B-19 THEN GOTO 
110 

95 IF B-21 THEN GOTO 150 
100 GOTO 60 
110 LET S-S+l 
120 PRINT RT 18,0+2;" " 

130 GOTO 40 

150 LET K-K+l 

160 IF K-3 THEN GOTO 186 

170 GOTO 40 

180 CLS 

iei PRINT "YOU HAVE FAILED TO S 
RVE ALL THE PEOPLE" 

182 PRINT 
185 LET H-S 

190 PRINT "YOU SAVED ";3;" LIVE 
S" 

200 PRINT 

210 PRINT "ANOTHER GO?" 

220 INPUT F* 

222 IF F*-"N" THEN STOP 

225 CLS 

230 GOTO 5 

240 SAVE "RESCUe" 

250 CLS 

260 PRINT "ANY KEY TO START" 

270 PAUSE 4E4 
275 CLS 
280 RUN 



< 144 I 



T ONY ABRAHAMS of Camber- 
ley, Surrey wrote Clock for the 
ZX-81 16K. The program gives 
you a clock accurate to approximately 
30 seconds an hour. That accuracy is 
contained in the variable “L” which 
equals about 50; you can adjust it to suit 
your machine. 

Abrahams says his program disproves 
any accusations of Basic on a ZX-81 
being too slow to support an accurate 
timepiece. The program uses the sys¬ 
tem variable FRAMES and may vary 
between individual machines. 
FRAMES takes 3,000 revolutions to the 
minute, therefore 3,000/50=one sec¬ 
ond. The clock may jump variables 
according to variable “L”. 


10 PAUSE 0 

11 LET L-49.277 

20 PRINT "INPUT THE TIME IN Ft) 
RM ""HH MM"" WHERE H-HOUR<1 TO 
12) AND M- MINUTE<0 TO 60)" 

21 INPUT A* 

23 LET H-VRL A8<1 TO 3) 

30 LET M-VAL A«<4 TO ) 

35 PRINT "PRE9S KEY TO STRRT C 

LOCK AT "jHj"-";Mj"'00" 

36 LET A»-INKEY* 

37 IF A*-"" THEN GOTO 36 

45 CLS 

46 PRINT HT 9,9j"< 10*i»P>"jTAB 
9;"<10*i»F)";TAB 9;"<10*i»P)" 

50 PAUSE 0 

61 LET A"< PEEK 16436+256*PEEK 
16437) 

71 LET S-INT < ABS (<PEEK 16436 
+256*PEEK 16437)-A )/L) 

81 IF S>-60 THEN GOTO 111 

91~PRINT AT .. . 

S 

101 GOTO 71 
111 LET M-M+l 
121 CLS 

131 IF M-60 THEN LET H-H+l 
141 IF H>12 THEN LET H»1 
151 IF M-60 THEN LET M-0 
171 LET R«< PEEK 16436+256*PEEK 
16437) 

175 PRINT AT 9,9 1 "<10*1»P)")TAB 
9; "( 10S1*P)";TAB 9;"C10*i»P )" 
101 GOTO 71 
191 SAVE "TIM»" 

201 RUN 

202 REM JtPProx 1 bwt»» 


SINCLAIR PROGRAMS January 1984 


15 









P HASE is a useful program for 
anyone studying physics, as it 
demonstrates the idea of phase 
lead and lag. It plots graphs of sinusoi¬ 
dal functions for various phase angles. 
It was written by G W Davies of Am¬ 
manford, Dyfed for the 16K Spectrum. 


U SE KEYS “5” for left and “8” 
for right to move on to the float¬ 
ing logs and lily pads as you 
make your way across the river. Use key 
“7” to jump. Press the break key to 
return after the game is over. 

Hoppitt for the 16K ZX-81 was 
written by Mark McLeod of Aylesbury, 
Bucks. 

SINCLAIR PROGRAMS January 1984 


1 PRINT AT 10,5;"Phase lead * 
TIN 1*9" 

2 PAUSE 100 

3 CLS 

4 PRINT AT 5,0;"This Pro9ramm 
♦ will help you to understand A 
.L. theory and the study of wave 
s. It Plots 9raPhs of sinusoidal 

functions for various Phase 
an9les" 

5 PAUSE 300 

8 CLS 

10 INPUT "If y«*SIN <ut+t) tyP 

e *n9le B- in multiples of PI r 
adians *9 0,.5,l,-.5 etc an 

d ENTER",* 

11 IF **0 THEN PRINT "SIN <wt 
+8.),8.-";*' GO TO 15 

14 PRINT “SIN <wt+e.),6.-"j*j “PI 

15 FOR n-0 TO 255 

20 PLOT n,88+50*SIN <n/128*PI+ 
**PI ) 

30 NEXT n 

40 INPUT "type cl to clear scr 
een or any letter to continue"; 

*• 

50 IF *«-"cl" THEN GO TO 7 

60 IF **<>"cl" THEN GO TO 10 






























100 PRINT RT F.B, -Jb" , 

125 PRINT RT 1$, }*> 

126 PRINT RT 18,15, 

127 PRINT RT 20, 14; Wj % 

130 IF M<F THf!N LET H-18 

140 IF INKEY*."P' OR h<18 THEN 
PRINT RT M , 16; " . " 

150 IF B«15 AND H«r THEN GOTO 1 
500 

155 IF B»14 AND H«F THEN GOTO 1 
5 lie IF INKEY*»"P" OR H<18 THEN 
GOSUB 1000 _ „ „ 

300 PRINT RT F, B; 

370 NEXT B 

500 NEXT R_ _ . 

700 PRINT RT 20,16;5 
1000 PRINT RT M,16; 

1010 LET^M-M-2 
}S88 PRINT RT H-1,B, - 

1555 PRINT RT H,B,"BB™ 

1556 PRINT RT H + 1,B;"*_ 

1557 PRINT RT H,B, 

1558 PRINT RT M+1,B;„. 

1850 PRINT RT M-1,B.. 

1560 PRINT RT M-2.B,. 

1570 PRINT RT H*2,8, . 

1700 PAUSE 50 

1750 LET 5*5*1 

1800 NEXT R , 


C AVEMAN is for the IK ZX-81 
by A Chetwode of Ramsbury, 
Wilts. You are a caveman hunt¬ 
ing in the woods for supper. You throw 
stones at birds passing overhead with 
key “P”. Twenty-five birds fly over¬ 
head at different angles and your score 
is shown. 


T HE OBJECT of Sniper-Fire is 
to destroy the target on your 
right as many times as possible. 
You select your range, then control 
your aim with “A” = UP, 
“Z” = DOWN and “NEWLINE” 
= FIRE. 

It was written by James Knowles of 
Aldershot, Hampshire for 16K ZX-81. 


20 PRINT AT 0,0;"WHAT RANGE 5- 
0 " 

30 INPUT E 

40 IF E>-31 OR E<-4 THEN GOTO 

0 

45 CLS 
50 LET A-10 
60 LET B-24 
70 LET C-0 


J SNIPER 
f FIRE 


80 LET D-0 

90 PRINT AT 3,21;"MISSES..."jC 

100 PRINT AT 7,21;"HITS.";D 

110 PRINT AT 3,21;"RANGE-";E 

120 PRINT AT 10,21;"HIGH. 

fl 

130 PLOT 0,A 

140 PLOT E,B 

150 UNPLOT 0,A 
160 UNPLOT E,B 

170 IF INKEY0-CHR* 11B THEN GOT 
0 220 

180 LET F-INT <RND*2> 

190 IF F-0 THEN LET B-6+1 
200 IF F-l THEN LET B-B-l 
210 LET A-A+<INKEY»-"A">-<INKEY 
•-" 2 ") 

215 GOTO 130 
220 FOR N-l TO E 
225 PLOT E,B 
230 PLOT N,A 
240 UNPLOT N,A 

250 IF N-E ANO A-B THEN GOTO 26 

0 

260 IF N-E ANO AOS THEN GOTO 3 

40 

270 NEXT N 

280 FOR N-l TO 5 

290 PRINT AT 0,0;"hit" 

300 PRINT AT 0,0;" 

310 NEXT N 

320 LET D-D+l 

330 GOTO 90 

340 FOR N-l TO 5 

350 PRINT AT 0,0;"mi*»" 

360 PRINT AT 0,0;" 

370 NEXT N 

380 LET C-C+i 

390 IF 0-4 THEN GOTO 410 

400 GOTO 90 

410 IF 0>M THEN LET M-D 
420 CLS 
430 GOTO 20 


SINCLAIR PROGRAMS January 1984 


17 








SI.^ S 3* UP »OFf ® 




ssSssfea 


^cKe's. 


Sggsss 


SSSES 


All prices include VAT 


and postage and packing 


QUANTITY 


Arr*»cc ~~ Please send me total enclosed 

... further information _ 1 - 

Bare laycard No with no obligation Q Tick if required 

KELWOOD COMPUTER CASES Downs Row, Moorgate, Rotherham Tel: (0709)63242 


18 


SINCLAIR PROGRAMS January 1984 










1 REM ****COCONUT CLIMBER#*** 
3 REM ***set up wi «b l e»**# 

6 POKE 23636,8 
18 PAPER 6 * BORDER 6' CLS 
20 FOR *-0 TO 7- READ b POKE 
USR "*"+*,b' NEXT a 

30 DATA 24,24,233,24,24,36,66, 

0 

40 LET X-5■ LET Y-31 
30 LET C-S' LET 0-31 
60 LET SC-0 
62 GO SUB 400 

65 PRINT AT 14,3;"ENTER YOUR S 
KILL LEVEL<1-3 >" 

70 PAUSE 0- LET J-VAL INKEY* 

75 IF J<1 OR J>3 THEN GO TO 6 
5 

80 LET J-J*15 
90 CLS 

100 REM #**#*Print icrnrimil 
110 PRINT AT 0,0; INK 4;'' <»P'i* 
2'3#198•191■»p'192'3*i9B■191 -*P■ 
192 1 3*198 1 192 1 »P■192■3*198'191 '% 
P 192 - 3*198'191 1 sP 
120 PRINT AT 1,0; INK 0;" 8 (i 8 

asaasaae&aaa" 

130 PRINT AT 17,0; INK 0; "- 


140 FOR *-18 TO 21 

130 PRINT AT *,0; PAPER ll" 


160 NEXT * 

190 PRINT AT C,D;" " 

200 PRINT AT X,Y;’|*" 

202 PRINT AT 0,0; INK 4;" Cf 19 
23*198'191'»P'192■3*198’i91-»P■ 
192 3*198'192'*P'192'3*198'191 * 
P'192'3*198'191'»P> " 

203 PRINT AT 21,0; PAPER l; INK 
7;"NUMBER OF COCONUTS- ";SC 
203 LET C-M' LET D-Y 

210 LET X-X+l 

220 IF X<16 OR X<-16 THEN GO S 
UB 300 
225 PAUSE 4 

230 IF X-17 THEN GO SUB 320 
240 IF X-20 THEN GO TO 900 
250 IF X-l OR X—1 THEN GO SUB 
340 

259 IF SC-0 THEN GO TO 262 

260 LET G-SC/13' IF G-INT G THE 
N PRINT AT 1,0;" S 8 8 Qt 8 8 8 
8 8 8 8 8 6 8 8" 

261 LET G-SC/'J' IF G-INT G THEN 

PRINT AT 17,0;"- 

270 IF Y<0 THEN LET Y-0 
280 IF Y>31 THEN LET Y-31 
290 GO TO 190 

300 LET Y-Y+<INKEY*-"P")-<INKEY 

*-»Q") 

310 RETURN 

320 IF SCREEN* <X,Y>-"-" THEN 
LET X—X 
330 RETURN 

340 IF SCREEN* <X,Y>-"8" THEN 
LET SC-SC+1 
350 RETURN 

400 PRINT " INSTRUCTIONS 


410 PRINT COCONUT CL 

1MBER" 

420 PRINT " BY N 

IGEL HURST" 

430 PRINT YOU HAVE TO COLLEC 
T COCONUTS BYBOUNCING UP AND DOW 
N ON THE STEPING STONES.YOU 
GET A NEW SET OF COCONUTS WHEN Y 
OU CLEARED" 

440 PRINT "THE SCREEN.THE STONE 
S DISAPEAR AS YOU BOUNCE ON THE 
M ,BUT YOU GET NEW STONES EVERY 

SO OFTEN DEPENDING ON YOUR SK 
ILLL." 

450 RETURN 

908 PRINT AT 10,10; FLASH 1; BR 
IGHT 1;"YOU DROWNED" 



C OLLECT as many Coconuts 
as possible by bouncing on the 
stepping stones. The stones dis¬ 
appear as you bounce on them but new 
ones appear at intervals, depending on 


your skill level. Bounce left with P and 
move right with Q. 

Written for the 16K Spectrum by 
Nigel Hurst of Upper Hartfield, East 
Sussex. 


SINCLAIR PROGRAMS January 1984 


19 










A NEW WORLD OF ADVENTURE 


BLACK CRYSTAL 


BLACK CRYSTAL 

A THIRD CONTINENT SERIES 

AOVENTURE 

The Classic, six program adventure 
game lor me 48K Spectrum and 16K 
ZX81 computers No software collection 
is complete without i "Black Crystal 
an excellent graphics adventure and a 
well thought out package Sinclair 
User April 83 "Black Crystal has 
impressed me Dy its sheer quantity and 
generally high quality of presentation I 
am alraid I have become an addict 
Home Computing Weekly April 83 
Spectrum 48K 180K of program m s»* 
parts only £7.50 

ZX81 16K over 100K of pioyran •> 

seven parts oni. £7,50 

WHY PAY MORE FOR LESS OF AN 

ADVENTURE? 


THE CRYPT by Stephen Renton 

Prepare yourself lor tne many 
challenges that snail confront you when 

THE CRYPT. 

battle with giant scorpions. Hen spawn 
Craners Pos- - Negs a-no *l you are 
. unlucky enough me Dark Cyclops « 
/ this arcade style adventure 

Available (or the 48K Spectrum at 
£4.95 


STARFORCE ONE 


THE ADVENTURES OF 
ST. BERNARD 


arcade game where you guide you- 
intrepid St Bernard through the peril 
the icy wastelands to rescue his Mist 


Take on the robot guardians ot the 
central computer m a superbly stylised 
three dimensional battle game 

(100% machine code arcade action) 


Available tor 48K Spectrum £5.95 


Available for 48K Spectrum E5.95 


V©ExCaiTUC DJair?6©©r? volcanic dungeon 

_ A THIRD continent series 

_ ADVENTURE 


Enter Ihe realm of Myth ano Magic in 
this classic Fantasy Adventure Battle 
with Mayra and her E vil Allies to rescue 
the Ellin Princess Imprisoned in a 
Crystal Colfin Deep within the Volcanic 
Dungeon Random Dungeon set ups 
ensure that you can play this addictive 
adveniure over and over again Single 
key entry cuts out tiresome typing 
associated with othei Text Adventures 
Instruction Manual with Map ol Dungeon 
enclosed 

"The whole game mechanism makes for 
a very Addictive Program, and one that 
remains a firm lavounte with many 
Adventurers 

Popular Computing Weekly June 1983 

For the 48K Spectrum or ZX-81 16K 
@ £5.00 


THE DEVIL RIDES IN 


i uttered the last incarnations as the 
dock struck thirteen All fell stem except 
lor a famt rustling «> the corner From 
out of ine shadows they came ail Hen s 
fury agamst me but I was not 
defenseless until tne Angel ol Death 
astnde a winged horse joneo the battle 
Avoiding ins bolls nt nell lire I look 
careful avn My chances were slim bul 
my luck held ■ 


(Fast moving, machine code, all 
action. Arcade game) 

Available for 48K Spectrum E5.95 


The above are available through most good computer stores or direct from: 

CARNELL SOFTWARE LTD., 

North Weylands Ind. Est., Molesey Road, Hersham, Surrey KT12 3PL. 
DEALERS: Contact us for your nearest wholesaler. 






FROM CARNELL SOFTWARE 


THE WRATH OF MAGRA 
A THIRD CONTINENT 
SERIES ADVENTURE 


The trrst born has been destroyed The 
B!ac< Crystal of Beroth has been banished. 
The ail ance of Evil has been defeated by the 
armies r Lord Fendal So ends the Third 
Age. Nov/ we invite you to write your name 
m ne history of the Fourth Age of the Third 


You will meet friends and enemies, old and 
new, in the long awaited sequel to Volcanic 
Dungeon. Using high resolution graphics 
and combining the best qualities of Black 
Crystal" and "Volcanic Dungeon", we will 
allow you to become part of this tale of 
revenge. 

"The Wrath of Magra" comes as three. 48K 
programmes on cassette, boxed with in¬ 
struction manual and book detailing the his¬ 
tory of the Third Continent and the many 
spells you will be using throughout the 
game For the 48K Spectrum @ £12.50. 

NOTE: The Wrath of Magra is a complete 
adventure. You need not buy Volcanic 
Dungeon or "Black Crysta 1 " to play it. 

Available from Feb '84 






The NEXT GEI 
of Spectrum 




’meg ratio 


Dept. SP. 22 Ash Church Road. Ash. Aldershot. Hants GUI4 9LP. All prices 
Include VAT and p&p (overseas add 55p per cassette). All cassettes carry a 
lifetime guarantee. Trade & export enquiries welcome - ring Dave Marshall 
0252 518569. Mail order or check your local computer store. 


our own machine code adventures 

Without any knowledge of machine code whatsoever 


THE QUILL u. major 

novice programmer .c 
quality to many avails 


FOR THE 48K SPECTRUM AT £14.95 




Now available in W H Smith, and from many 
computer shops nationwide, or direct from us by post 
or telephone. 

SA E for full details of our range. 


system you may ci 
between tlicm. Y« 


itli th e greatest of ease . A part formed adventure may ke 

•mpletion. Wken you have done toTHF. QUILL will allow 

f your adventure wkicli will run independently ol tke main 
iu may ipvc copies away to your friends, 
vi.h a detailed tutorial manual wkick covers every aspect of 
lures. It is impossible to describe all tke features of ibis 
a small space so we have produced a demonstration cassette 
rmation and an example of its use. 

ailable a, £2.00. and THE QUILL itself a. £14.95. 


Dealer enquires welcome. 


(.ILSOIT 

30 Hawthorn Road 

South Glamorgan 
CF68LE 
SI0446) 736369 


TELEPHONE YOUR ORDER 

WITH 


22 


SINCLAIR PROGRAMS January 1984 









































U SE THE CURSOR keys 
climb the ladders, slide do^ 
the mine shafts and avoid t 
monsters, the escaped pit trucks, t 
rotting planks, and the mysterious me 
ing wall. Collect the gold and the pic 
and then proceed to the bottom rigl 
hand corner to move to the next levc 
To enter, type-in the first prograi 
RUN it, then type CLEAR. Ty 
‘SAVE’ “Builder” LINE 1’, VE 
IFY it and then type NEW. Enter t 
second program, save it with SA\ 
“Builder” line 9999 and VERIFY 
Builder can then be LOADed as o 
program. 

Written for the 16K Spectrum by I 
McNair of Kingston-upon-Thami 
Surrey. 


LEflfc PRINT AT 10,9; FLASH 1;" 
LEASE WRIT" 

1G DRTR "fl»,187,187,0,238,236 
0,113-113 

15 DRTR "B",56,60,25,126,152, 
0,36,36 - 

20 DRTR "C",20,164,170,116,06 
32,124,56 

25 DRTR "E",0,112,28,48,120,1 


25 DRTR "E",0,112,20,48,120,1 
4,60,24 

30 DRTR "F",0,255,171,213,255 

0 - 0,0 

35 DRTR "G",0,0,0,255,255,255 
126,60 

40 DRTR "H",66,126,66,66,66,1 

6 , 66,66 

45 DRTR "I",76,88,120,120,08, 
6,64,64 

50 DRTR "L",126,62,14,6,6,14, 
2,126 

55 DRTR "U",30,6,2,0,0,2,6,30 
100 FOR F“1 TO 1U' RESTORE 5+5 
F READ F* FOR N-0 TO 7 RERD 
' POKE USR F*+N,fl : NEXT N' NEXT 
F 

110 BORDER 0 PAPER 0’ INK 7' 
LEAR 

120 LORD "" 

3398 REM FOR MAIN PROGRAM TYPE 
CLEAR • SAVE "BUILDER" LINE 3 
93 

3393 CLEAR SAVE "BUILDER" LIN 


24 


SINCLAIR PROGRAMS January 1984 






1 PAPER 0 BORDER 0' INK a- C 
LS DIN zt6>- DIN z*<6,10:>' FOR 
f-1 TO 6- LET z<7-f .«=100+10G*f' 
LET z*< f>="SPECTRUM" NEXT f 
10 DIN o( 2 )' DIN P<2) ! LET O', 1 
>-13- LET P< 1 )-5 > LET oC2>-8- LE 
T PC2J-27- CLS • LET she- 1 ! • LET 
**■0 FOR n-3 TO 1 STEP -l CLS • 
UVER 0- PRINT AT 5,Si" NEN' "; m 
;" "jAT 6.Si" SCORE"i 

AT 7,5>" SHEETS'"i*hei" ";AT I 
PRESS ANY KEY TO PLAY " 
20 IF INKEY*< >"" THEN GO TO 2 

0 

30 IF INKEY *-"" THEN GO TO 30 

100 BORDER G INK 7' OVER 0’ CL 
S PRINT TAB 9;"Bv Ian NcN 
air"' BORDER 1' RESTORE 9990= RE 
AD * FOR f-1 TO a READ b,c,9 
PRINT AT b,c;>• FOR h-1 TO 9' PR 
INT INK 23"j^}‘ NEXT h' NEXT f 

101 INK 6' RESTORE 9992' READ a 


• FOR f-1 TO 3 READ b,c,9' FOR 
h-1 TO 9 PRINT AT b-ci'Ji" ' LET 
b-b+1■ NEXT h' NEXT f 

102 INK 5 RESTORE 9994 READ a 

■ FOR f-1 TO a 1 READ b,c- PRINT 
AT b.cJ’V*' NEXT f 

103 INK 2’ RESTORE 9996' READ a 
FOR f-1 TO a’ READ b,c PRINT 

AT b,ci ■ NEXT f 

104 INK 4' RESTORE 9996 READ a 

■ FOR f-1 TO a READ b,c- PRINT 
AT b,c;"1" 1 NEXT f 

109 FOR o-l TO 2' PRINT AT o<o> 
,P<o>; OVER 11 INK 8! , il'■ NEXT o 


' FOR f-3 TO 16' PRINT AT f,li"l 
"• NEXT f> FOR f-8 TO 17 PRINT 
AT f,26!"I"■ NEXT f 
110 INK 2' PLOT 0,0' DRAW 2bS,0 
' DRAW 0,17b' DRAW -25b,0 DRAW 
0,-175- LET bon-0' LET sta-4 LE 
T axa-0' LET x-1■ LET dr-0- LET 
¥-29' INK 5' PRINT AT x,v; "jy 1 ; AT 
21,14; INK 4;"MENSCORE'" 
;s 

199 FOR f-19 TO 21' PRINT AT f, 
30; INK 6; NEXT f 


200 FOR v-40 TO 0 STEP -2 PRIN 
T AT 0,2; OVER 0;"TIME ";INT v;" 

FOR f-14 TO 28 PRINT AT 19, 
f; OVER 1; BRIGHT 1; INK 6;"9";A 
T 16,-12+f J 

201 OVER 1> GO SUB 300' PRINT A 
T 6,23;"BONUS'";bon;AT 7,23;"PIC 
KS 1 ";axe : IF INKEY*-“0" THEN IF 

ATTR <x,¥>-5 THEN LET bor>=bon+ 
10’ PRINT OVER 1;AT x,v; INK 6; 
">* 

202 IF INKEY*-"0" THEN IF ATTR 
< x,v >=4 THEN LET axe-axe+1• PR 

INT OVER 1; INK 6;AT 
205 IF x-19 AND v-f OR x-16 AND 
12+f THEN GO TO 9690 
252 GO SUB 9500' PRINT AT 16,-1 
2+f; OVER 1; INK 6; "9J ; AT 19, f>" 
9“ 

260 NEXT f' LET v-v-2 PRINT AT 
0,2; OVER 0;"TIME'"!INT v;" "' 
FOR f-28 TO 14 STEP -1 PRINT AT 
19,f; OVER l! INK 7; BRIGHT 1;" 
_2l';AT 16,-12+f;'is:' 

265 IF x-19 AND *-f OR x-16 AND 
v —12+f THEN GO TO 9690 

289 OVER 1' GO SUB 300' PRINT A 
T 6,23;"BONUS'“;bon;AT 7,23;"PIC 
KS'";axe IF INKEY*-"0" AND ATTR 

<x,v>-5 THEN LET bon-bon+16 1 P 
RINT OVER 1;AT x,s; INK 7;"e" 

290 IF INKEY*-"0" AND ATTR <x,v 
)-4 THEN LET axe-axe+1■ PRINT 
OVER 1;AT x,v; INK 7; , li." 

299 PRINT AT 19,f; OVER 1; INK 
6;'IS";AT 16,-12+f i"_9^- GO SUB 95 
00- NEXT f' NEXT v- GO TO 9690 

300 PRINT AT x,v; BRIGHT 8; PAP¬ 
ER 8; INK 8;’V‘’ LET x=x+<1 AND 
ATTR <x+l,¥>«7>' IF INKEY*-"" TH 
EN GO TO 310 

301 LET x-x+<INKEY*="6" AND ATT 
R <x+l,¥>«6>-<INKEY*-"7" AND ATT 
R < x-1 ,¥ >-6> LET v=u+<INKEY*-"8 
” AND ATTR <x,v+1X>2>-<INKEY*-" 
5" AND ATTR <x,v-l><>2> 

310 IF ATTR < x,*)<4 THEN GO TO 
9690 

311 IF < x-lb AND y-13 ) OR Cx-15 
AND ¥-18 > THEN LET x-x+1 

312 PRINT OVER 1;AT x,v; INK 8 
; PAPER 8; BRIGHT 8;"b"’ OVER 0 

IF INKEY*-"8“ THEN Tr x-19 THE 



N IF ¥-29 THEN GO TO 9800 
313 IF x-19 AND *=23 AND axe>0 
THEN IF INKEYS="0" THEN LET ax 
e-axe-1■ GO SUB 9750 
320 GO SUB 500' RETURN 

500 FOR o-l TO 2' LET di-RND’ P 
RINT AT o<o>,P<o:>; OVER 1; INK 8 
; BRIGHT 0;‘^c"' LET o<oi'-oto>+<d 
i>.7 AND ATTR < o< o >+l, P< o ^ >-6 )-< 
dl<.45 AND ATTR (o<o>-l,PCo>>-6> 

501 LET P<o>-P<o>+<di>.65 AND ¥ 
>P(.o> AND ATTR (oCo),P<o)+l X>2) 
-<di<-.5 AND P<oȴ AND ATTR (.of. 
o),P(o)-l)<>2)' IF ATTR (oCo)+l, 
P<o>>-7 THEN LET o< o >-o< o >+1 

550 PRINT AT o(oXPCO); OVER 1, 
INK 8; "_c_" 1 IF o<o>-x AND ¥=P<o> 
THEN GO TO 9690 
570 NEXT o RETURN 
9500 IF RND>.5 THEN RETURN 
9505 OVER 0- LET rd-INT <RND*2>+ 
1' IF rd-2 THEN PRINT AT 9,23; 
INK 3; BRIGHT 1,'T";AT 11,25; 

; AT 8,7; "_f " ; AT 10,25; INK 7; BRI 
GHT "0;" ";AT 15,13;" "; AT 14,13; 

INK 3; BRIGHT 1 AT 16,28;‘T 
" ; AT 6,7; 'LL."; AT 6,5; BRIGHT O; I 
NK 7;" ";AT 7,15;" ";AT 8,10;" " 

;AT 20,7;" ";AT 20,11; INK 2;"a" 
9510 IF rd-1 THEN PRINT AT 9,25 
; INK 7;" ;AT 11,25;" ";AT 8,7; 

" "; BRIGHT 1; INK 3;AT 10,25;"f. 
";AT 15,13;"f"; BRIGHT 0; INK 7; 
AT 14,13;" ''TRT 16,28;" ";AT 6,7 
;" "; INK 3; BRIGHT 1;AT 6,5;'Jf" 

; AT 7,15; ‘T"; AT 8,1INK 7; 
BRIGHT 0;AT 20,11;" ";AT 20,7; 


INK 2;"a" 

9530 OVER 1■ RETURN 

9600 CLS ' FOR f-1 TO 6- PRINT A 
T 0+f#2,2;f;";z<fBv..";z* 
<fV NEXT f' FOR f-1 TO 6 IF s< 
z<f> THEN NEXT F 

9601 IF F>6 THEN LET F-6 

9602 IF S>2< F > THEN GO TO 9640 

9603 NEXT F 

9604 FOR f-0 TO 400' NEXT f GO 
TO 9700 

9640 LET FF-F 

9641 IF S-ZCFF) THEN GO TO 9604 

9650 PRINT AT FF*2,4; OVER 1; FL 

ASH 1;" INPU 

T "NAME-";z*'FFV IF LEN t*C 

FF)>10 THEN GO TO 9650 

9651 BEEP .5,0' LET 7<FF>-S' GO 
TO 9604 

9690 PRINT AT x,¥; FLASH X; PAPE 
P 2; INK 6;"b"= FOR f-0 TO 100 
BEEP ,05,50-T NEXT f BEEP .@5. 
-50' NEXT m 

9700 OVER 6 PRINT AT 15,9; FLAS 
H 1; "GAME OVER" FOP f-0 TC' 40 

9700 OVER 0' PRINT AT 15,9; FLAS 
H 1;"GAME OVER" FOR f-0 TO 40 
0’ NEXT f PRINT AT 17,6;" PRESS 

•- ";AT 19,6;" P...PLAY. “;AT 2 
0,6;" A...ABONDON. ";AT 21,6;" S 
...SCORE TABLE"' PAUSE 0' PAUSE 
0- IF INKEY*-"s" OR INKEY*-"S" T 
HEN GO TO 9600 

9701 PAUSE 0' LET a*-INKEY* IF 
a*-"P" OR a*-"P" THEN GO TO 10 

9702 IF a*-"a" OR a*-"A" THEN R 
AND0MI2E USR O 

9703 IF a*-"a" OR a*-"S” THEN G 
0 TO 9600 

9710 GO TO 9701 

9750 IF sta-4 THEN PRINT AT 19, 
29;"1“ 

9753 IF sta-3 THEN PRINT AT 19, 
29; '[u/‘ 

9754 IF sta-2 THEN PRINT AT 19, 
29; 

9735 IF sta=l THEN PRINT AT 19, 

29;" " 

9756 LET sta-ata-1• RETURN 
9800 OVER 0' FOR f»6 TO 15 PR1N 
T AT f,6;" "■ NEXT 

f' OVER I- FOR f-7 TO 0 STEP -. 
4' BORDER f' BEEP .15, f PRINT A 
T 10,7;“ WELL DONE AT 13,7; 
" BONUS 1 ";bon 1 NEXT f' LET s-s+ 
bon*2' OVER 0 PRINT AT 7,8; FLA 
SH 1;" SCORE ";a FOR f—50 TO 
50' BEEP .05,f 1 NEXT f' LET she- 
she+1 

9810 DATA 1,0,0,1,0,1 RESTORE 9 
815' FOR f-1 TO 3- BEEP .2,1 PR 
INT OVER 1;AT x,v; INk 8;^b"' R 
EAD n,m LET v-¥+n LET x-x+m P 
RINT OVER 1; INk 8;AT 
BEEP .3,f• NEXT f 
9820 GO TO 20 

9990 DATA 20,7,16,5,11,4,8,10,5, 
5,13,0,13,12,27,5,11,14,12,13,19 
,7,15,19,3,16,22,9,19,0,13,18, 13 
,14,17,0,19,15,0,17,20,14,58,4,2 
2,10,9,20,12,4,0,18,2,26,6,6,1,1 
3,8,1,13 

9991 REM 

9992 DATA 19,19,23,2,16,16,4,18, 
3,3,18,13,3,14,19,4,16,8,3,15,6, 
2,13,29,3,11,27,5,12,22,4,9,8,4, 
10,12,3,5,14,6,3,6,3,7,2,6,3,21, 
6,3,18,4,8,30,4,1,25,3 

9993 REM 

9994 DATA 12,3,28,20,2,28,6,20,9 
,20,12,7,3,9,6,10,10,8,28,10,21, 
10,23,14,7 

9995 REM 

9996 DATA 4,3,23,16,18,19,29.19, 
31 

9997 REM 

9998 DATA 4,3,2,7,6,12,19,13,28 

9999 BORDER O PAPER 0 INK b C 
LS FOR f-0 TO 48' BEEP .0O9,f 

BEEP .009,f+5' NEXT f RUN 


SINCLAIR PROGRAMS January 1984 


25 





PLANE SAILING 



Seetvum *«« 

SMUGGLER 



SMUGGLER As master of a 19th 
century vessel you plough between 
England and the continent visiting 
ports to buy and sell your cargo, 
but bewaro the customs men. 
pirates and gale force winds can a* 
run you aground. Runs on 



PLUNDER Can you singe the 
ot Span's beard Engage the 
Spanish ships on the high seas 
survive their broadsides and 
plunder the gold destined lor the 
Armada and you might get your 
Knighthood before Francis Drake 
Runs on Spectrum 48K — E6 





DALLAS Can you amass enough 
pelro dollars to take over the Eumg 
empire Cut throat business and an 
eye tor the mam chance may gel 
you there but you'll need nerves ot 
steel to become the oil king ot 
Dallas Runs on ZX81 16K - £S 
and Spectrum 16K/48K - £6. 



GANGSTER Are you cdd hearted 
and callous enough to warrant the 
title ot Don You need to be H you 
are to rise to the lop ot the pile A 
quick trigger linger and an oven 
quicker brain a»e needed to control 
the mobs and their rackets Runs 
on Spectrum 48K — £6 



BYTE 


IT 


^ADVENlUHi GAMES 


BYTE Complete the ten circuits you 
need to build your computer system 
then return home Easy Byte has 
sent ns electronic monsters to harry 
you through this three dmensonal 
maze ot circuitry, it any ot them 
catch you Huns on Spectrum 
48K - £5 



PRINT 

SHOP 


AUTO 

CHEF 


CAMELOT As the ban,shed Arthur 
Pendragon you must find seven 
treasures without tailing prey to the 
Brigands, Dragons and Evil 
Magicians that stand m your way 
and make a triumphant return to 
Camefot to be crowned King Runs 
on ZX81 16K - £5 and Spectrum 

Available from W H Smith, Boots, Rumbelows and all good computer shops or 
Cases Computer Simulations Ltd., 14 Langton Way, London SE3 7TL. 


Y /,' 



Strategy Games. They’re no pushover 


26 


SINCLAIR PROGRAMS January 1984 
























F LITE is an addictive dodge ’em 
game. You must avoid the deadly 
heat-seeking missiles heading for 
you and at the same time you must try 
and hit an enemy target to gain points. 

Flite was written by Peter Davies of 
Streatham, London for the 16K Spec¬ 
trum. 


10 FOR n-0 TO 15 READ a.' POKE 
USR "a"+n,a■ NEXT n 
20 DATA 0,62,05,127/85,127,85. 
62,0,62,127,127,127,127,127,62 
25 BORDER 1' PAPER 6 CLS 
30 PRINT INK 9;" DODO 

ER“',,'"Dod 9 e the INK 5 ;"< 9 a) 

", INK 3; "'a and the "; INK 4;" / ' 
", INK 0 ; , -Hit the "; INK 

2;"t9h>"; INK 0;"'ft to score Poi 
j fits"''' "Control Kevs UP..... 

. OCMN. 

.... ~z~" 

40 LET hs -0 LET mx-INT <RND*2 
0 >+ 6 < LET mv=20 

44 PRINT AT 21,0; INK 0;" PRE 

•S3 ANY KEY TO START"' PAUSE le3 

45 CLS ■ LET *-0' LET 1-3 
50 FOR n -1 TO 100 

55 LET x-l+INT <RND*31>’ LET v 
-1+INT <RND*20> 

60 IF SCREEN* Cx,x>-"" THEN C 

U Tu 55 

70 PRINT AT *,x; INK 2;"<«a) M > 
NEXT n 

80 FOR n -1 TO 20 
85 LET x-l+INT tRND*31> LET v 
- 1 +INT <RND#20> 

90 IF SCREEN* < v, x>«"" THEN G 
U TO 85 

100 PRINT AT *,x; INK 5;"<9a>"■ 
NEXT n 

110 PRINT AT 21,0;"SCORE “;s;AT 
21,12; "LIVES >»";AT 21,23; "HI 
"; ha 

115 PRINT AT 21,18+1;" " 

120 LET x—0' LET *=0 
130 IF SCREEN* <*,x>"“ THEN G 
0 TO 200 

150 PRINT AT v,x;">" 

155 GO SU 8 400 

160 IF INKEY*-"r" THEN LET v-s 
+<. v<20 > ! LET z— 1 ' GO TO 190 
170 IF INKEY*-"1“ THEN LET v-v 
-<* >0 >' LET z=0' GO TO 190 
180 LET x-x+1■ IF x—32 THEN LE 
T x- 1 - PRINT AT v,3l;" "« GO TO 
130 



185 LET z-2 

198 PRINT AT v+<z=0>-<z-l >,x-<z 
■2>;" "■ GO TO 130 
200 IF RTTR < v,x >-48 THEN GO T 
0 150 

205 IF ATTR <v,xX>50 THEN GO 
TO 210 

206 LET s-s+10- IF sx1000-INT < 
SX1000) THEN GO TO 300 

207 PRINT AT 21,6;S' BEEP .01,2 
O' GO TO 150 

210 PRINT FLASH 1;AT *,x;"<9a> 
" FLASH 0’ PRINT AT 21,17+1;" " 

’ LET l-l-l- IF 1-0 THEN GO TO 


240 

220 BEEP .01,0' GO TO 120 
240 IF hft<s THEN LET hs-s 
250 PRINT AT 21,26;hs 
260 PRINT AT 11,8; FLASH 1; INK 
3;"Another Go ? <*xn>" 

270 IF INKEY*-"*" THEN GO TO 4 
5 

275 IF INKEY»-"n" THEN STOP 
280 GO TO 270 

300 RESTORE 320' FOR n-1 TO 16' 
READ a BEEP .1,a' NEXT n 
310 CLS ■ GO TO 50 
320 DATA 0,12,2,10,8,8,4,7,7,4, 


8,3,10,2,12,0 

400 IF m«<20 THEN PRINT AT ma + 

1,mx;" " 

401 IF SCREEN* <KW,mx>-">" THEN 
GO TO 210 

405 IF SCREEN* <mv,mx>="" THEN 
LET mx-RND* 20+6- BEEP .01,40 L 
ET mu-20• RETURN 
410 PRINT AT mv,mx; INK 4;"' s "' 
LET my-my-1 

420 IF nw-0 THEN PRINT AT mv+1 
,mx;" "> LET mx=RND*20+6 LET 
=20' RETURN 
430 RETURN 


SINCLAIR PROGRAMS January 1984 


27 




,TO5feaMM£gjJ 


m 






td)t. 


W""' 




fcr.v 

$%.V> 2 S 


<: srr.,; 


> : -«i 






,.lll«' ,,:; 


S-lfil 


WANTED 

16/48K SPECTRUM 
ATARI 400/800 
Games of all types 
=-. EDUCATIONAL 
BUSINESS 
UTILITIES 

Games must be original 
and of High Quality 
Visual Impact 
First class royalties paid. 

Have you seen our new sensational 
Arcade game. Can you equal or better it.?? 
If so contact: MR KEVINGREEN 

NOBLE HOUSE SOFTWARE 
29,KingbrudeTerrace Inverness Scotland 
Tel. Inverness (0463) 220611 


The ACTION game with the thrills of real football 

Choose your team formations from 3-2-5.4-2-4. or -4-4-2. 

When tire game starts it's up to you to plan your moves and outwit your 
opponents See the results played out by fast machine code routines on 
a birds-eye view of the pitch 

Make the split second decisions that the professionals have to! 

Shall I make the short safe pass and maybe let the defence regroup? 

Or do I try a long defence-splitting ball and risk an interception' 

Has my winger got the speed to take on the lull back and beat him' 

Do I try a long shot and catch the goalie off his line’ 

Or shall I give the ball to a team-mate in a better position? 

The more games of "Star Soccer" that you play, the more skillful you will become 
You'll learn how to set up the go8l-scormg opportunities, and how to get yourself 
out of tight corners You'll develop your own style of play and find out which 
formation suits you best 

Side 1 features a SUPER LEAGUE competition 

between 8 top British sides. Aberdeen. Aston Villa. Celtic. Liverpool. 
Manchester United. Rangers Spurs and West Ham. 28 games in all and the 
League Table is automatically maintained for you. 

Side 2 replays the WORLD CUP finals, it's a knock out competition 
between England. Scotland. N Ireland. Italy. West Germany. France. Brazil 
and Argentina. Lots of excitement with sudden-death extra time in drawn games 

It's amazing how so much is packed into 16KI 
Available for ZX Spectrum and ZX81 

(Please state which machine when ordering) ONLY £5.95 

Watson (Software (Services Ltd. (Dept. BiaEfiV 

1, Ivy Cottages. Long Road West. Dedham, Essex C07 6EL 


-.■sS® 4 * - 1 


CREDIT CARD 
PHONE 06C 
PRIOR 


DIRECTLY 

OPERATES THESt^ __ 

KEyS &&&sS Q —Sir 

TO GIVE PRECISION JOYSTICK CONTROL 

★ Essential for 'Flight-Simulation' and similar games. 

★ Increases skill level on games using cursor keys. 

★ Speeds graphic plotting and drawing. 

★ No electrical connections —all rear sockets free. 

★ Fits and removes in seconds —no tools required. 

★ No modification needed to Spectrum case or keys. 

To: Grant Design Ltd, Bank House, Reepham. Norfolk. 
NR10 4JJ. 

Please rush me a Spectrum-Stick Controller. I enclose 
cheque/P.O. for £9.95 (payable to Grant Design Ltd). 
Please charge my access Q Visa Q Credit card number. 

mTTTT r IT I I I I I I I 

Name. 

Address. 


28 


SINCLAIR PROGRAMS January 1984 



















TR££ 



T REE EATERS for the 16K Spec¬ 
trum was written by A Beard- 
more of Stoke-on-Trent, Staffs. 
Stop the Martians eating our forests for 
the vital resources they lack on their 
planet. 


1 BORDER &• PAPER O’ INK 6’ C 
LB 

£ PRINT "YUX90 MUSI KILL TH 
t MARTIAN TRbL ENTERS INK 
2i"9P"j INK fa;" NT RLL COSTS"’ P 
R1NT "BUT DON'T KNOCK DOWN THE T 
REES”’ PRINT ■ PRINT "O-UP. K-DO 
UN. S-R1GHT. A-LEFT. »• PRINT • 
PRINT "BUT CFIREFUL YUU HFIVE NO fa 
RAKE" 

3 PR INI ITT 21,0; "PRESS ANY KE 
Y TO START CAME" 

15 GO SUB 0006’ PAUSE 0 

lfa FUR 3-0 TO £1' INK 2 

17 PRINT AT a,0;" 

"’ NEXT a 

20 PRINT AT 1,1; INK 6;"<30*9a 
? " ; RT 21,1 i "<30#9b)“ 

21 INK 6 

25 FOR a=2 TO 20’ PRINT AT 3,0 
i "< 9c )"; AT a, 31; "< 9eO" ’ NEXT a 

29 LET a=0 

30 PRINT AT I NT RNDTlfa 1+2,1 NT 
I.RNDT30 >+ 1 ; INK 4; " < 9e >" ’ LET a 


=a+l’ IF i<30 THEN GO TO 30 
40 PRINT AT 3,14; "<9a>"jAT 3,1 
6;"<9a >";AT 12,14;"<3*9b 

50 FOR a-10 Tu 11’ PRINT AT a, 
13; "(9c)"; AT a, 17; "<9ei V ’ NEXT a 
PRINT AT 8,14; INK 2;" 

55 PRINT AT 0,1;"SCORE ’-0 
TREES KILLED’=0 " 

CO LET x-0 

65 LET *c-0* LET tr-0 
70 LET a$="<99>" 

80 LET oP —0 ’ LET a=U’ LET s=l 

5 

85 LET 4-1 NT <RNt)*l9H2’ LET u 
-INT <.RND*30i+l 

OE PRINT AT 4, w; INK INI <. RND* 

6 >+l; "< 9P >" 

100 PRINT AT a,s;a* 

120 IF INKEY*="a" THEN LET x=l 
130 IF INKEY*-"s" THEN LET x=2 
140 IF INKEY#”"o" THEN LET x=3 
150 IF lNKEY*=“k“ THEN LET x=4 
155 PRINT AT a,s; INK 2;" " 

170 IF x=l THEN LET aS-’XQh)" ’ 


SINCLAIR PROGRAMS January 1964 


29 







8050 FOR .3-0 TO RERD s' POKE 
USR "f'+i.s- NEXT 4' DRTR 24+360 
24 , 24+36,36, 24+36,24+36,24+36+66 
,24+36 

8060 FOR 4=0 TO 7' RERD s' POKE 
USR "9"+a,s> NEXT 4 '■ DRTR £4+36, 
24+36+66,24+36,24+36,36,24+36,24 
,£4+36 

8070 FOR 4=0 TO ?■ READ s' POKE 
USR "h“+4,s 1 NEXT a' DRTR 0,2,25 
5-64,£55-16,255-16,255-64,2,0 
8080 FOR 4=0 TO 7' RERD S' POKE 
USR "x"+4,s' NEXT 4' DRTR 0,64,2 
55-2,255-8,255-8,255-2,64,0 
8090 FOR 4=0 To 7' RERD s' POKE 
USR "P"+4,s’ NEXT 4 DRTR £4,24+ 
36+66,24+36+66,255—36,255,255—12 
9,36,36 
8500 RETURN 

9000 OLS ' PRINT "SCORE ";sc;' F' 
RINT ' PRINT "YOU KNOCKED DOWN T 
00 MRNY TREES"' PRINT ' PRINT "8 
0 YOU WERE THROWN OUT"' PRINT ' 
PRINT ' PRINT INK 7;"RATINE" 
9005 PRINT 
90Q6 FLASH 1 

9007 BEEP .01,40' BEEP .1,20- B 
EEP .02,40' BEEP .1,15' BEEP .03 
,40' BEEP .1,10' BEEP .1,20' BEE 


P .1,40 

9010 IF sc>500 THEN 

PRINT 

"FRNT 

RSTIC"' CO TO 9100 
9011 IF sc>400 THEN 

PRINT 

"VERY 

GOOD"' GO TO 9100 
9012 IF sc>300 THEN 

PRINT 

"GOOD 

"' GO TO 9100 

9013 IF sc>250 THEN 

PRINT 

"NOT 

BAD"' GO TO 9100 
9014 IF sc>200 THEN 

PRINT 

"BAD" 

' GO TO 9100 

9015 IF sc>150 THEN 

PRINT 

"VERY 

BAD" ' GO TO 9100 
9016 IF sc>100 THEN 

PRINT 

"OLD 

CRANNY"' CO TO 3100 
9017 IF sc>=0 THEN 

PRINT ' 

'FORCE 


T IT"• CO TO 3100 
9100 CO TO 9500 

9500 FLASH 0' PRINT RT 21,0;"RHU 
THER GO'.Y/'NV' 

9606 IF INKEY#"" 11 THEN CO TO 95 
00 

9610 IF INKEY$=“y" THEN RESTORE 
• GO TO 1 

9620 IF INKEY$=“n" THEN CO TO 9 
999 

9630 CO TO 9500 

9700 OLS ■ BEEP .05,40' BEEP .05 
,30' BEEP .05,50' BEEP .1,30' BE 
EP .1,40' BEEP .1,20’ PRINT "YOU 
HAVE KILLED ALL THE MAR 

Tl'flN TREE EATERS..WELL DONE.." 
BEEP .01,30' BEEP .01,30' BEEP . 
01,30' CO TO 9500 


LET s=s-l 

171 IF x<*2 THEN LET a*""C9i>“' 
LET s=s+l 

172 IF x=3 THEN LET 4*=“<9f>"' 
LET 4=4-1 

173 IF x=4 THEN LET a*=-“<99>"' 
LET 4=4+1 

175 IF RTTR <4,s:"=6 THEN CO SU 
B 410' LET oP = l 

176 IF 4=1 AND s=w THEN BEEP . 
05,40' LET sc=sc+10' LET oP = l' C 
0 SOB 500' CO TO 85 

177 IF op=0 THEN IF SCREENS (.4 
,5)0" " THEN CO SUB 40G 

178 LET oP=0 

180 IF sc;>500 THEN CO TO 9700 

200 PRINT RT 4,s;4S 

210 IF tr >15 THEN CO TO 3000 

250 LET op=0 

300 CO TO 100 

405 BEEP .09,-20' LET fcr»tr+l' 
CO SUB 500 

406 RETURN 

410 IF x=l THEN LET s=s+l 

411 IF y.~-2 THEN LET s=s-i 

412 IF x=3 THEN LET 4=4+1 

413 IF x=4 THEN LET 4=4-1 
420 PRINT RT 4,s;4*' RETURN 
500 PRINT RT 0,8; sc; RT 0,28;tr- 
510 RETURN 

8000 FOR 4=0 TO 7' RERD s' PUKE 
USR "4"+4,s' NEXT 4 DRTR 0,0,0, 
0,24+36,128+64+3,255,255 
8010 FOR 4=0 TO ?■ RERD S' POKE 
USR "b"+4,s' NEXT 4' DRTR 255,25 
S', 128+64+3,24+36,0,0,0,0 
8020 FOR 4=0 TO 7' READ S' POKE 
USR "c" +4 ,s' NEXT 4' DRTR 7,7,11 
,11,11,11,7,7 

8030 FOR 4=0 TO 7' RERD S' POKE 
USR ”d"+4,s' NEXT 4' DRTR 128+64 
+32,128+64+32,128+64+16,128+64+1 
6,128+64+16,128+64+16,126+64+32, 
128+64+32 

6040 FOR a=0 TO ?■■ READ s’ POKE 
USR "e"+4,s' NEXT 4' DRTR 24,24+ 
36+2,24+36+66,255-123,24+36,24,2 
4,24 


30 


SINCLAIR PROGRAMS January 1984 




There's only one thing wrong with the 
ZX81 Its keyboard. 

Or rather its lack of one. 

Since it’s flat your fingers don't feel as if 
there's any response to the pressure put on 
the keys. 


ZX81KEYS FILESIXTY KEYS 


But our keyboard doesn’t just come 
loaded with features. With it comes a separate 
overlay and a set of coloured stick-on labels to 
make game playing easier. 

It’s yours for the original price of £9.95. 

Whichever way you look at it, we think 
you’ll agree that it’s a keyboard thafs quite 
outstanding. 


In other words, you’re not quite sure 
which keys you've pressed until the screen 
actually tells you. 

Our new, improved push button keyboard 
changes all that. 

It matches the ZX81 perfectly. And the 
keys give a real calculator-type feel. 

To set it up all you have to do is peel off the 
adhesive backing and stick it on top of the 
ZX81 touchpad. 

Because no tampering or soldering is 
involved the guarantee is not affected. And it 
will last for up to 3'fi million operations. 


[""orders to Filesixty Ltd., FREEPOST, London W9 2BfT"l 
| Cheques/PO made payable to Filesixty Ltd. 

I Please send me. _. (qty.) Keyboards at £9.95 each i 
I (including VAT and P&P). 

I Total £ I 


Address 




Filesixty Ltd., 25 Chippenham Mews, London W9 2AN, England.Tel: 01-289 3059. Telex: 268 048 EXTLDN G 4087. 


SINCLAIR PROGRAMS January 1984 


31 









djstp 48K ZX SPECTRUM 

NEW RELEASES ... 


CAN SOMEONE GUIDE ZIPPY THROUGH ALL 7 LEVELS 
TO THE EXIT 7 £500 AWAITS THE SPLAT CHALLENGER 
WITH THE HIGHEST SCORE. 

An Original & Entertaining game that 
gets you hooked" 

PCN Als ° ,rom WjVjzjM 


MOUNTAINS 
ofKET RD 

A GIANT OF AN ADVENTURE PROGRAM' THE MANY 
FEATURES INCLUDE COMBAT, INTERACTIVE BEINGS. 
MONETARY SYSTEM FIRST YOU HAVE TO FIND THE 
MOUNTAIN & THEN 7 AS WELL AS BEING A FAST 
INGENIOUS COMPELLING ADVENTURE IN ITSELF - 
THE MOUNTAINS OF KET IS THE FIRST OF A 3 PART 
SERIES THAT BUILDS INTO A MAMMOTH 
ADVENTURERS CHALLENGE 

BY R A McCORMACK £5.50 


1984 


GOVERNMENT 

management 


THE BRITISH ECONOMY WITH YOU AT THE CONTROLS' 
WHAT SORT OF CHANCELLOR WOULD YOU MAKE 
WITH SEVERAL BILLION POUNDS TO SPEND & FIVE 
YEARS TO THE NEXT GENERAL ELECTION 7 GRAPHIC 
DISPLAYS, HISTOGRAMS & A ANNUAL PERFORMANCE 
RATING ARE ALL INCLUDED TO SHOW HOW YOU ARE 
DOING HOW MANY YEARS WILL YOU LAST 7 

ELECTED BY R.M.H CARTER £5.50 


All programs run in the 48K ZX SPECTRUM and are 
available from all good computer shops In case of 
difficulty please order direct using the coupon below 
r ATTENTION PROGRAMMERS —- 1 

TOP ROYALTIES PAID ORIGINAL PROGRAMMES WANTED FOR ALL 
MAKES OF POPULAR HOME COMPUTERS 


All at £5.50 each (inclusive of VAT, and 1st class postage) 
I enclose cheque/PO for £ or please debit my 

Access account no 


HEARING IS BELIEVING 

Tele Soumt 

SPECTRUM BEEP BOOSTER 


TELESOUND is ready built and TELESOUND has been designed 
tested so that you can get the using the very latest ultra 
full sound of your Spectrum miniature components so it's 
through any unmodified size is an incredible 2 x 1.3 i 1mm. 

television set. black and white and lib neatly inside the Spectrum, 
or colour. The unit is easy to Three easy push-on 
fit in minutes without any connections are made to the 
previous experience as full Spectrum. The connections 
fitting instructions are are clearly shown in a 

provided. diagram that comes with 

full fitting instructions. 

TELESOUND FEATURES 

• SOUND AND VISION TOGETHER FOI ADDED REALISM 

• BEEP VOLUME CONTROLLABLE THOM A WHISPER TO A ROAR 

- KEYBOARD CLICK CLEARLY HEAID TO ASSIST PBOOIAM ENTRY 

• PROCRAMS CAN IE HEAID WHEN BEING LOADED • NO SOLDERING OB CASE CUTTING REQUIRED 

• ADDITIONAL AMPLIFIER NOT NECESSARY • SEPARATE POWER SUPPLY NOT lEOOHED 

• USES SO MEMORY SO WORAS WITH ALL PROCRAMS • COMPATIBLE WITH ALL OTHER ADD ONS 
IHCUJDIHC MICRODRIVE 

TELESOUND comes complete with easy to follow fitting 
instructions and costs £9.95 inclusive of post, packing 
etc. Please state your computer when ordering. 

COMPUSOUND 


DEPT: SP 1 32 - 33 LANGLEY CLOSE. REDDITCH, WORCESTERSHIRE. 

B98 OET. TELEPHONE: (0527) 21429 (21439 Answerphone) 


TRACE 


For any ZX Spectrum, and 
now for the 16K ZX81H! 


A superb aid to programming the ZX81 /SPECTRUM, 
allowing you to watch what your BASIC programs are doing 
every step of the way. Bugs in your programs will be easier 
to find. Example programs will almost explain themselves. 
Before the ZX81/SPECTRUM executes each BASIC state¬ 
ment in your program it will display the line number, 
statement number (SPECTRUM), and the statement itself 
in the input area (it will not overwrite the main display area). 
The speed is controllable from single step upwards. You can 
produce a TRACE listing on the ZX printer, stop your 
program at any point to print variables or correct errors, and 
start/stop tracing from anywhere in your program. 

"an effective TRACE ... a useful debugging tool. . .easy 
to use". S.U. 9/83 reviewing SPECTRUM version. 

It might even help you find the errors in the magazine listings! 


ZX81 (16K) Version .... £5.95 
Spectrum Version .... £6.95 


Including 
P & P from: 


TEXGATE COMPUTERS LTD. 

Dept. SP, 14 Brook Lane, Corfe Mullen, Dorset BH21 3RD 


32 


SINCLAIR PROGRAMS January 1984 





















RAT INVASION 


R AT INVASION was Steven 
Murgatroyd’s first attempt at 
programming. You are trapped 
in a tunnel and suddenly you hear the 
scampering of rats. The rats scroll up 
the screen and your job is to dodge them 
for as long as possible. Murgatroyd of 
Wanton, Oxon wrote Rat Invasion for 
the 16K ZX-81. Underlined letters are 
to be entered in graphic mode. 


10 PRINT AT 0,8;"RAT INVASION" 

140 PRINT AT 19,0; "< 14V1S.0 

i = 

11 PRINT AT 1,8;"<12*97)" 

' .. > i 14*isp-)" 


12 PRINT AT 4,0;" YOU ARE TRAP 

150 PRINT AT 20/0; "< 14*.iSp 


RED IN A DARK CAVE AND YOU HEAR 

91 ■ 14*.isj> ’>" 


THE FOOTSTEPS OF SMALL ANIMALS 

160 PRINT AT 21,0; “< 14*.\Sp' 

97' 

... r*t».YOU HAVE NO WEAPONS YO 

97'14*. »» 


U MUST TRY TO GET BY WITHOUT BE 

210 PRINT AT 12/E; 


INC KILLED." 

220 IF PEEK < PEEK 16398+256*PEE 

14 PRINT AT 14.0;“USE KEYS'"/, 

K 16399>120 THEN GOTO 500 


"5 LEFT",,"B RIGHT" 

230 PRINT "V" 


IS PRINT AT 20,0;"ANY KEY. 

240 PRINT AT 12,E;" " 


II 

250 IF INKEY*-"5“ THEN LET 

1 

UJ 

Hi 

16 PAUSE 9999 

1 


IB CLS 

260 IF INKEY*-"8" THEN LET 

E-E+ 

50 LET E-15 

1 


60 FOR F«1 TO 100000 

270 NEXT F 


70 PRINT AT 1S,RND*30J "< 3* lS.p> ) 

500 PRINT AT 16,12;"scar# . 

; F 

•1 

510 PAUSE 999 


80 SCROLL 

520 CLS 


100 PRINT AT 15/0;"(9u■30*96■94 

530 PRINT AT 11,2;"PRESS ANY KE 

>" 

Y TO TRY AGAIN" 


110 PRINT AT 16/0; "< 31*Tsf> >" 

565 PAUSE 4E4 


120 PRINT AT 17,0; "< 12*,'Sp >r*t 

566 GOTO 18 


130 PRINT AT 18,0;"f'9f9f9f9f9f9 

570 SAVE "RAT INVASIOn" 


f9f9f9f9f9f9f9f9f'9f9" 

580 RUN 



SINCLAIR PROGRAMS January 1984 


33 







T he abandoned house is 

a 16K ZX-81 adventure game 
and is this month’s program of 
the month. The author is Stephen Mur- 
gatroyd, aged 14, of Wantage, Oxon 
who has been programming since he 
received his ZX-81 in July. He is keen 
on adventure games and this is his first 
attempt at this type of game. 

Caught in a fierce electric storm, you 
seek shelter in an abandoned house. 
The door closes behind you, there is 
only one way out and you must find it. 
You explore the house, you are given a 
3D picture of each room as you enter it. 
You can find treasure or weapons but 
the house holds other secrets. The 
graphics are very good and add to the 
eerie atmosphere. 



15 PRUSE 100 

1© PRINT RT 0,30.: " 

17 PRINT RT 1,29.1 " 

IS PRINT RT 2,28; 

10 PRINT RT 3,27;" 

20 PRINT RT 4,26; " 

21 PRINT RT 5,25; " 

22 PRINT RT 6,24;" 

23 PRINT RT 7,23;" 

24. PRINT RT 8,22; "| 

25 PRUSE 15 

2© CL S 

28 FAST 

20 FOR F = 1 TO 22 



32 PRINT RT © 



33 PRINT RT 8,0 

34- PRINT RT 12,3; ■ ■ ■ 




35 PRUSE 200 

4.0 CLS 

50 SLOU 

55 PRINT RT 0,5,"ESCRPE" 

5© PRINT RT i , &; 

60 PRINT RT 2,0;" VOU RRE TRAP 

PED IN RN ENORMOUS STORM , RNC> VOU 
R CAR HRS BROKEN DOUN.VOU UIALK 
ALONG R RORO LOOK-ING FOR R HOU 
SE . " 

©5 PRINT RT 6,0;" FINALLY VOU 

FIND ONE AND KNOCK ON THE DOOR.. 


80 PRINT RT 18,0;"PRESS RNV KE 

V" 

SS IF INKEY S = " " THEN GOTO 85 
8© CLS 

00 PRINT RT 0,0;"THE DOOR OPEN 
S VOU ENTER THERE IS NO T 

URNING BACK." 

01 PRINT RT 4- , 0 ; "THERE IS MRGI 
C GOLD IN THE HOUSEUHICH UILL HE 
LP YOU ESCRPE." 

02 PRINT RT 7,0;"FIND THE UEAP 
ONS FOR THEY UILL HELP YOU SURU 
IUE . " 

05 PRINT RT 10,0;"THE HOUSE IS 
FILLED UIT H MANY HORRORS.YOU 
MUST TRY TO, Lt-WzUd 

06 PRINT RT 14,0," THE GOLD RN 
D WEAPONS RRE UORTH SOME MONEY S 
O LOOK AFTER THEM." 

100 PRINT RT 18,0;"PRESS ANY KE 
Y TO BEGIN" 

105 IF INKEY S = ” " THEN GOTO 105 

100 CLS 

300 LET 5=100 

310 LET G=0 

320 LET U=0 

500 CLS 

505 SCROLL 

50© SCROLL 

510 LET A*="A LIBRARY." 

S 2 0 LET B $ = "A HALL. " 

530 LET C*="A LOUNGE." 


34 


SINCLAIR PROGRAMS January 1984 











IF A=6 THEN LET F$aG 

IF A=7 THEN LET F$=H 

GOSUB 659 

SCROLL 

SCROLL 

IF F*=R* THEN GOSUB 

IF F*=B* THEN GOSUB 

IF F*=C* THEN GOSUB 

IF F*=D$ THEN GOSUB 

IF F$=E* THEN GOSUB 

IF F*=G* THEN GOSUB 

IF F*=H* THEN GOSUB 

SCROLL 

SCROLL 

FAST 

CLS 

PRINT RT 5,5; ■ " 


662 PRINT RT 19,5; 

— 1 

663 FOR 2=0 TO 4. 

6 6 4. PRINT RT Z,Z; 

665 NEXT Z 

666 LET X=0 

667 FOR Z =29 TO 25 STEP 
66S PRINT RT X,Z; 

669 LET X =X + 1 

670 NEXT Z 

671 LET X =4- 

672 FOR Z =20 TO 21 

673 PRINT RT Z,X; 

674- LET X=X-1 

675 NEXT Z 

676 LET X =2 5 

677 FOR Z =20 TO 21 

6 7 S PRINT RT Z,X;’’%” 

679 LET X =X + 1 

660 NEXT Z 

631 FOR Z=6 TO IS 


632 PR INT RT Z , 5 ; "■ ' ; RT Z , 24-; ’’ | 

633 NEXT Z 

684. PRINT RT 20,3; "YOU RRE FRCI 
NG '• ; RT 2 1,3; F * 

635 SLOU 

636 PRUSE 100 
690 RETURN 

700 PRINT "(1) EXPLORE (2) LOOK 

FOR TRAPS" 

710 INPUT U 

720 IF U=l; THEN GOSUB 1000 

730 IF U —2 THEN GOSUB 1100 

735 SCROLL 

736 SCROLL ^ 

7 4-0 GOTO 510 

800 PRINT ”(1) EXPLORE (2) LEAU 

E" 

310 INPUT E 

320 IF E=1 THEN GOSUB 1000 

830 IF E =2 THEN GOSUB 1300 

333 SCROLL 
836 SCROLL 
84-0 GOTO 510 

900 PRINT ’(l^) EXPLORE (2.1 REST 

(3) LERUE" 

910 INPUT O 

920 IF 0=1 THEN GOSUB 1000 

930 IF 0=2 THEN GOSUB 14-00 

940 IF 0=3 THEN GOSUB 1300 

94-3 SCROLL 
94-6 SCROLL 
950 GOTO 510 
1000 SCROLL 
1005 SCROLL 

1010 LET R = INT ( RND * 4.1 + 1 
1020 IF R = 1 THEN GOSUB 1500 

1030 IF R =2 THEN GOSUB 1600 

1040 IF R =3 THEN GOSUB 1700 

1041 IF R =4- THEN GOSUB 1320 

104-2 SCROLL 

104-3 SCROLL 
1050 RETURN 

1100 SCROLL 

1101 LET R = INT CRNC>*2) +1 

1103 IF R = 1 THEN PRINT ’THERE RR 

E NO TRAPS HERE . ’ 

1104- IF R =2 THEN GOSUB 1107 

1105 PRUSE 30 

1106 RETURN 


SINCLAIR PROGRAMS January 1984 


35 



mill!.! 


110-7 PRINT "YOU FIND ONE WHICH L 
EflDS TO" 

1108 SCROLL 

1110 PRINT "ANOTHER ROOM." 

1111 PAUSE 30 

1112 SCROLL 
1114- SCROLL 
1120 RETURN 
1300 SCROLL 
1310 RETURN 
1315 SCROLL 

1320 PRINT "THERE IS NOTHING HER 


PRINT "YOU HRUE 
PRUSE 30 


1330 PRUSE 80 
134.0 RETURN 
14-00 SCROLL 

14.0 1 LET A = I NT (RND*2) +1 
14.02 IF R = 1 THEN PRINT "YOU REST 

AND THEN MOUE ON." 

14.03 IF A=2 THEN GOSUB 14.06 

14.04. PRUSE 80 
14.05 RETURN 

14-06 PRINT "WHILE RESTING R THIE 
F COMES BY" 

14.07 SCROLL 

14.03 PRINT "RND TRKES VOUR GOLD 
RND WERPONS." 

14.09 LET G=G—G 
14.10 LET W=W-W 
14-11 PRUSE 30 
14-13 SCROLL 
14-14. SCROLL 
14.20 RETURN 

1500 GOSUB 652 

1501 SCROLL 

1510 PRINT "YOU HRUE FOUND SOME 
GOLD " 

1511 PRINT RT 14- ,3, 

1512 PRINT RT 15,3, ■■■■ ■■■■ 

15 13 PRINT RT 16,8, MB 1H1" 
1514. PRINT RT 17,8, 

15 15 PRINT RT 13,6, §,*, 

wo" 

ISIS PRUSE 100 
1520 LET G=G+20 

1530 LET S=S+10 

1531 IF S > 350 THEN GOTO 1800 

1532 SCROLL 
1534- SCROLL 
154-0 RETURN 
1600 FRST 
1610 CL S 

16 15 LET R *INT (RND*3) +1 

1620 IF R = 1 THEN LET M* = " 


PRINT "HRUE VOU R WERPON '7" 
IF W=0 THEN GOTO 2115 
IF W<1 THEN GOTO 166© 

PRINT "YES" 

LET W = W-1 

PRINT "VOU HRUE KILLED IT" 
GOTO 510 
GOSUB 659 

SCROLL 

PRINT "YOU HRUE FOUND R WER 

PR INT RT 9,14- : » 

PRINT RT 10,14.; ■ 

P R I NT RT 11,14.. «■ 

PRINT RT 12,14.; " ■ 

PRINT RT 13,14-," ■ 

PRINT RT 14,14.; ". ■ 

PRINT RT 15,14;" ■ 

PRINT RT 16,14;" ■ 

PRINT RT 17,14;" ■ 

PRINT RT 13,14; ™ 

LET W=W+1 
LET S =S + 10 

IF S > 350 THEN GOTO 1800 

SCROLL 

SCROLL 

RETURN 

CLS 

PRINT RT 5,10. HHIMSK Wld 
PRINT RT 6,0; ■■■ Hm ■■■ ■ 


1840 PRUSE 100 
184-5 CLS 

1850 PRINT RT 5,0," WELL DONE VO 
U HRUE FINALLY RND THRNKFULLV ES 
CRPED FROM THE HOUSE RND ITS 

MONSTERSRT 8,0;" DURING YOUR 
ESCAPE YOU TOOK £"; G*S, " ,000 WO 
RTH OF GOLD RND £";W*5:",000 WOR 
TH OF WERPONS." 

1351 PRINT RT 14,0,"WOULD YOU LI 
KE TO BECOME EUEN ■HHBnH 


1630 IF R =2 THEN LE 


UO : 1855 

\ iss© 
mssmm. 0 

■HlsIlSB 1370 

< 


PRUSE 9999 
IF INKEY*="N" 


THEN GOTO 190 


IF INKEY * = "•• THEN GOTO 1850 
IF INKEY $ = "Y " THEN GOTO 20 


PRINT "R WISE DECISION." 

STOP 

CLS 

PRINT "GREEDY THING." 

PRUSE 50 
CLS 

GOTO 510 
CLS 

PRINT "3RD LUCK.YOU HRUE FR 


1640 IF R =3 THEN LE 


STOP 

SRUE "ESCRPa" 
GOTO 1 


SINCLAIR PROGRAMS January 1984 












CCuMMMS 


L OST IN a large maze, your only 
hope is to find the exit which is 
somewhere on the top left of the 
maze. All you can see in the darkness 
are the glowing sides of the passage. 
Move using the cursor keys. 

Mazeman was written for the 16K 
Spectrum by P Loach of Hadleigh, 
Suffolk. 


9 10 GU SUB 9000 

26 LET x-INT <RND*l + l>‘ LET » = 
INT <RND*w+l)' IF m*<v,x)«"'. isp) 
" UR X<1x2 THEN GO TU 20 

90 LET e=INT <RND*<w-2>+2) IF 
m*<e,2>="<. isP >" THEN GO TU 20 
35 LET mSK e, 1 >- M " 

40 IF v-l AND m*<v,x)-" " THEN 
GU TO 8e3 
50 00 SUB 7O00 

60 BEEP . 1 , RND#20 ’ LET i*- 1NKE 
V* IF i*<"S" OR i*>"8" THEN GO 
TO 60 

70 LET a-< i*-"8“ >-«; i#-"5" )■ LE 
T b-< i#-"6“ )-< i®-''7" >’ IF mS'.u+b 
" THEN LET x-x+a> LET x 
-v+b 1 GO TO 40 

80 PRINT^=0; FLASH 1; INK 2; P 
APER 6 >"YOU WALKED INTO A WALL" 
FOR F-l TU 200 OUT 254,F' OUT 

254,255' NEXT F- INPUT . OUT 2 

54,0' GO TO 60 

7000 CLS LET a-*-le IF a< 1 TH 
EN LET a-1 


7020 LET c-x-le' IF c<l THEN LE 
T c-1 


7040 FOR e=a TO b' PRINT m*<e,c 
TO d) NEXT PRINT AT u-a,x-c; 

FLASH 1; " »■ RETURN 
8600 FOR F-l TO 50' PAPER RND*7 
OUT 254,RND#7’ OUT 254,255 CLS 
■ NEXT F BORDER ?' PAPER 7- IN 
K 0 CLS 

8010 PRINT AT 9,6; FLASH 1;"Y0U 
FOUND THE EXIT"' PRINT £0;"ANOTH 
ER GO ? " 

8020 IF INKEY*-"Y" OR INKLY*-"*" 
THEN RUN 

8030 IF INKEY#-"N" OR INKEY*="n" 
THEN GO TO 9999 
8640 GO TO 8020 
8999 REM MAZE <U INSTRUCTIONS 
9800 PAPER 5' INK 6 BORDER 5' C 
LS ■ PESTORE 9e3 READ l,w 
9610 PRINT TAB 7;"MAZEMAN" " " Yo 
u are lost in a lar9e maze."'" Y 
our onl* hoPe of escape is to fi 
nd the exit,which is hidden so 
mewhere in the left hand"'"corne 
r.All uou can see m the dark 
Passages is the 9loum9 corne 
rs of the tunnel"To move,use 
the cursor kevs." 

9020 DIM m#(u,l)> FOR f-l TO u> 
READ m»<f >• NEXT f INK 6' PAPER 
0 

9U30 INPUT "Enter level 1-9 <9 t 
s easiest) ”;le IF le<l UR le>9 
UR le>INT le THEN GO TO 9030 
9040 LET le-le+1 BORDER 0 CLS 
' RETURN ' DRTA 32,24, "< 32*isP •" 


9050 DATA "<isP' 7 *sP'isP' 6 *sP 10 
*i*P 2 *sP 5 *isP >" 

9060 DATA "<isP' 5 *sP isP sP'isP 
SP■isP'SP'isP- 2 *sP 1 3 #isP' 9 TsP 2 * 
tsP 1 2 **P isP)" 

9070 DATA "<isP' 5 *SP 1 isP 3 *sP 1 is 
P'SP■IsP' 3 *SP - 5 *isp• 6 *sP 2 * 1 SP 2 
*SP ' ISP >" 

9080 DATA "<iiPsP 13 *isP' 2 * 5 P '4 
* 1 SP' 10 *SP ISP)" 

9090 DATA "<isP' sP isP• 17 *sP >isP 
1 6 *sP ' isP ■ 3 #sP • isP >" 

9100 DATA "<isP'*P'isP’ 2 *sP 3 #ls 
P'SP' 10 *isP'SP■isP 6 *sP 5 *isP>" 
9110 DATA "< 3 *isP• 2 *sP■isP■ 6 *sP 
2 *isP• 13 **P■isP■ 3 *sP'isP )" 

9120 DATA "(iiPiPiiP' 2 *sP' 3 *is 
P sP 1 2 *isP sP 2 *isP' 3 *sP 2 *isP s 
P ' ISP ' 10 **P >ISP )" 

9130 DATA "<isPsP isP' 2 *aPisP- 
3 *sP'isP 7 #sP■ 2 *isP 4 *sP•isP 5 *s 
P' 3 *isP>" 

9146 DATA “(lsP’iP itP' 6 *sPiiP 
sP 4 *isP‘ 2 *sP‘ 5 *isP' 2 *sP 2 *isP 4 
*sP ' isP 'tP ltP >" 

9156 DATA "<isP‘SP ! 8 *isP- sP 1 isP ■ 
2 *sP‘isP 1 2 *sP' 4 #isP' 2 *sP• 2 *isP 4 


*SP'ISP'SP‘ISP )" 

9166 DATA "<isPl3*sP 1SP14*SP’ 
isP sP isP )" 

9170 DATA "<12*uP-2*9P 16 * 1 SP s 
P isP )" 

9180 DATA "CisP'10*sP isP 2 *SP'5 
*14P ' 12*SP ' ISP >" 

9190 DATA "<isP sP' 8 *isP sP‘isP' 
12.TSP '3*isP 4*sP ' isP >" 

9200 DATA "(. isP 3*sP 3*isP 2*sP 
IsP sP■ISP■2*sP'ISP'3*sP‘7tisp s 
P isP >4*sP isP )" 

9210 DATA "<HP 8 *sP-3*isP'2*sP 
isp >sP ‘ isP 'sP 1 isP ’5*sp isP ' sp • is 
P'4#sp■isp )" 

9220 DATA "<isp sP 6 *isP sP isp 
4#sP'isP SP’isP'sP isP 12*SP isP 

>" 

9230 DATA "<isP ‘ 8 *sP isP 4YsP is 
P'3*sP'isP sp' 8 #isP 1 3*sP■isP )" 
9240 DATA "<;4*isP sP 5*l*P 21 *sP 
'isP)" 

9250 DATA "<isp 2*sP'isP 8 *sP' 6 * 
isP 4*sP 7*isP'2*SP'isP)" 

9260 DATA "<isP'0*sP 6 *isP 7tsP 
2*isP 7*sP isp )" 

9270 DATA "<32*isP>" 




1( W\ A Yi/,//,/• 

W @ © 




I n/| / 

T W* 


r§L 


SINCLAIR PROGRAMS January 1984 


37 


BE A TOP SOCCER TACTICIAN IN THE 



• Full 11-a-side match action 

• Scale 90-minute game 

• On-screen commentary showing current 
score, name of player in possession, 
time played 

• Individual player skills 

• Full 22-team League 

• 42-match season 

• League table and results on screen and 
printer 

• Save season to date on tape 
FOR USE ON 48K SPECTRUM 


To order SUPER-LEAGUE, please send cheque/ 
P.O. value E6-50payable to CROSS SOFTWARE, 
36 Langford Crescent, Barnet,Herts,EN49EH 




BIGTRACK SIMULATION PROGRAM. 48K 

Spectrum. Home or school use. Develops 
programming skills for children. C2.50 or 
s.e.o. for details. Holt. Guillemot Close. 
Hythe, Hampshire S04 6GJ. 



MAIL ORDER ADVERTISING 

British Code of Advertising Practice 

Advertisements in this publication are required to conform to 
the British Code of Advertising Practice. In respect of mail order 
advertisements where money is paid in advance, the code 
requires advertisers to fulfil orders within 28 days, unless a 
longer delivery period is stated. Where goods are returned un¬ 
damaged within seven days, the purchaser's money must be 
refunded. Please retain proof of postage/despatch, as this may 
be needed. 

Mail Order Protection Scheme 

If you order goods from Mail Order advertisements in this 
magazine and pay by post in advance of delivery, Sinclair User 
will consider you for compensation if the Advertiser should 
become insolvent or bankrupt, provided: 

(1) You have not received the goods or had your money 
returned: and 

(2) You write to the Publisher of Sinclair User summarizing the 
situation not earlier than 28 days from the day you sent your 
order and not later than two months from that day 

Please do not wait until the last moment to inform us. When you 
do write, we will tell you how to make your claim and what 
evidence of payment is required. 

We guarantee to meet claims from readers in accordance with 
the above procedure as soon as possible after the Advertiser has 
been declared bankrupt or insolvent (up to a limit of E4.250 per 
annum for any one Advertiser so affected and up to £10.000 per 
annum in respect of all insolvent Advertisers. Claims may be 
paid for higher amounts, or when the above procedure has not 
been complied with at the discretion of Sinclair User, but we do 
not guarantee to do so in view of the need to set some limit to this 
commitment and to learn quickly of readers' difficulties). 

This guarantee covers only advance payment sent in direct 
response to an advertisement in this magazine (not. for example, 
payment made in response to catalogues etc. received as a result 
of answering such advertisements). Classified advertisements 
are excluded. 


38 


SINCLAIR PROGRAMS January 1984 
























KNOX 


Y OU ARE trying to break int< 
Fort Knox to steal as much 
money as possible. You will 
have to experience many trials before 
you leave dead — or a millionaire. 

Fort Knox was written for the 16K 
ZX-81 by Gordon Bold of Edinburgh. 


FORT 


2 LET ROD 

120 PRINT "THERE ARE 3 PASSAGES 

00 POINTS AFTER BRIBING HIM" 

3 LET HOD 

WHICH LEAD TO THE VAUL1.1 OF 1H 

365 

LET S-S-500 

4 LET N*=" 

E PASSAGES HAS AN ALARM" 

368 

PRINT ,."score ";S 

5 GOsub saao 

140 PRINT "TYPE IN WHICH PASSAG 

370 

PRINT //"PRESS N^L TO TRY A 

6 PRINT "HOW MANY PLAYERS?" 

E <1 TO 3>" 

GAIN 1 


7 INPUT PL 

150 INPUT C 

380 

IF INKEY*-"" THEN GOTO 380 

8 LET S-0 

170 PRINT 

390 

GOTO 105 

9 FOR W-l TO PL 

180 PRINT AT 7/0;"<0*99'isP sP 

400 

LET S-S+<Q*100> 

ID PRINT ,/’Pl«er ";W 

i*P 2*99 : isP '*P ■ isP -2*99' isP sp 

405 

PRINT //"score ";S 

11 LET S-0 

ISP 11*99)" 

410 

PRINT //"PRESS N/L TO CONTI 

12 PAUSE 7b 

182 FOR F-l TO 7 

NUE" 


13 CLS 

184 PRINT "<8*9h‘isP SP•ISP'2*9 

420 

IF INKEY*-"" THEN GOTO 420 

14 PRINT "fort knox n" 

h isP sP ■ tsP 2*9h' isP sp • isP ■ n* 

430 

CLS 

lb PRINT AT 0/14;"hi9h tcoret" 

9h)" 

440 

PRINT "Phase 2" 

1HS 

185 NEXT F 

450 

LET 2-INT <RND*6)+1 

17 PRINT AT 1/14;"name;- " ;N* 

186 PRINT AT lb/0;"<8*9f isP sp 

455 

PRINT ,,"YOU HAVE FuUND A K 

18 PRINT AT 2/14;"a9e:";AG 

■isP'2*9f : isP sp isP 2*9f■isP sP 

EY AND MUST PUT IT INTO 1 OF T 

22 PRINT AT 5,7;"INSTRUCTIUNS? 

•isP'll*9f>" 

HE DOORS <( id)). USE THE CURSOR 

(Y/N)" 

190 IF C-l THEN LET Y-9 

KEYS 

TO MOVE AROUND" 

23 INPUT I* 

200 IF C-2 THEN LET Y-14 

456 

PRINT //"PRESS NXL TO CONTI 

24 IF I*-"N" THEN OOTU 108 

210 IF C-3 THEN LET Y-19 

NUE" 


25 IF I*- M Y" THEN GOTO 30 

220 LET X-6 

457 

IF INKEY*-"" THEN GOTO 457 

30 PRINT AT 5/7;"instruction* 

230 PRINT AT X/Y;" “ 

458 

CLS 


240 LET X-X+l 

459 

LET L-6 

33 PRINT //"YOU ARE TRYING TO 

250 IF X-15 THEN GOTO 300 

460 

LET C-4 

BREAK INTO A SPECIAL BANK WHICH 

255 IF X-10 AND C-A THEN GOTO 3 

461 

LET X-INT < RND*5 ) 

CONTAINS OVERE100/000/000.YOU W 

50 

462 

LET Y-INT <RND*5) 

ILL HAVE TO " 

260 PRINT AT X/Y;"0“ 

464 

PRINT AT X/Y; "< id)" 

34 PRINT “OVERCOME MANY DANGER 

270 GOTO 230 

470 

LET A-INT (RND*5> 

S ON YOUR WAY TO THE VAULT.DUR 

300 PRINT AT X/Yj“< io>" 

472 

LET B-INT < RND*5) 

INC THE GAMEYOU GAIN AND LOSE PO 

302 PAUSE 75 

474 

PRINT AT A/B;"<id)" 

INTS.“ 

305. CLS 

475 

PRINT AT L/C;" " 

3b PRINT "YOU ARE REPRESENTED 

306 LET Q-INT <RND*30)+10 

477 

LET L-L+<INKEY*-"6“>-<INKEY 

BY AN ""0"“" 

308 PRINT "YOU HAVE ELUDED THE 

•«"7' 

' > 

40 PRINT "IF YOU COMPLETE A TA 

ALARM AND " 

478 

LET C-C+< INKEY*-"8" )-< INKEY 

SK SUCCESSFULLY YOU WIL 

310 PRINT "HAVE GAINED 0*100 

*-"5‘ 

) 

L CHANGE TO AN <<io))/IF NOT YOU 

;" POINTS" 

480 

IF L-X AND C-Y THEN GOTO 55 

WILL CHANGE TO AN <<!*>)." 

330 GOTO 400 

0 


80 PRINT / /"PRESS N/’L TO CONTI 

350 PRINT AT XzY;"<i*)“ 

485 

IF L-A AND C-B THEN GOTO 57 

NUE" 

352 PAUSE 75 

0 


90 IF INKEY*-"" THEN GOTO 90 

354 CLS 

490 

PRINT AT L/C;"0" 

108 CLS 

355 PRINT "YOU HAVE BEEN ARREST 

500 

GOTO 475 

109 LET A-INT <RND*3>+1 

ED BY A" 

550 

PRINT AT L/C;"<io>" 

110 PRINT "PhaseJl" 

360 PRINT "POLICEMAN.YOU LOSE 5 

555 

PAUSE 75 


SINCLAIR PROGRAMS January 1984 


39 






556 CLS 

560 PRINT "WELL DONE YOU CHOSE 
THE CORRECT DOOR AND CAN CONTINO 
E TO THE NEXT PHASE" 

562 PRINT "YOU HAVE SCORED "K2 
*2*100);" POINTS" 

563 LET S-S+<2*2*100) 

564 PRINT ,,"»cor* ";S 

565 PRINT , , "PRESS N-'L TO CONTI 
NUE" 

566 IF INKEY*""" THEN GOTO 566 

567 CLS 

566 GOTO 600 

570 PRINT AT L,C;"<i*>" 

575 PAUSE 75 

576 CLS 

578 PRINT "HARD LUCK.YOU CHOSE 
THE WRONG DOOR AND HAVE FALLEN 
INTO A PIT YOU LOSE 500 POINTS 
CLIMBING OUT" 

580 LET S-S-500 

581 PRINT ,,"tcore ";S 

582 PRINT ,, "PRESS N/-L TO TRY A 
GAIN" 

584 IF INKEY*-"" THEN GOTO 504 

586 CLS 

590 GOTO 459 

600 PRINT "Phase 3" 

610 PRINT .."YOU HAVE TO WALK A 
LONG A PLANK BECAUSE OF THE GUA 
RD DOGS BELOW BE CAREFUL.SOME OF 
THE PLANK IS ROTTEN" 

612 PRINT "THERE IS A CROWBAR < 
+ > AT THE END OF THE PLANK.IF 
YOU HIT IT YOU WILL GAIN POINTS 

615 PRINT "USE ""W ,,H TO WALK AN 
D "”J"" TO JUMP" 

620 PRINT .."PRESS N/L TO CONTI 
NUE" 

630 IF INKEY*""" THEN GOTO 630 
640 CLS 
700 LET L-4 
705 LET C-0 

710 PRINT AT 5.8; M t97'2*SP'2*97 
' sP ■ 97 > SP ■ 2*97 ■ 4*sP 97 < 2*SP = 2*97 

r 

712 PRINT AT 12.0; "< 19*9a 
715 PRINT AT 4.17;"+" 

720 PRINT AT L,C;" " 

730 IF INKEY*-"W" THEN LET C-C+ 

1 

735 IF L-4 AND C-l OR L-4 AND C 
-2 OR L-4 AND C-5 OR L-4 AND C-7 
OR L-4 AND C-10 OR L-4 AND C-ll 
OR L-4 AND C-12 OR L-4 AND C-13 
OR L-4 AND C-l5 OR L-4 AND C-l6 
THEN GOSUB 900 

737 IF INKEY*-"J" AND L-L+l AND 

C-C+l THEN GOTO e50 

740 IF INKEY*-"J" THEN G0SU8 95 

0 

745 IF INKEY*< >“J" AND L<4 THEN 
GOSUB 1000 

747 IF INKEY*-"J" AND L-L+l AND 
C-C+l THEN GOTO 850 
750 PRINT AT L.C;"0" 

760 IF L-4 AND C-l8 THEN GOTO 1 
200 

765 IF 019 THEN GOTO 802 

766 IF 0-18 AND L<>4 THEN GOTO 

770 IF C-19 AND L-4 THEN GOTO 1 
500 

775 LET 2-INT <RND*20>+1 
780 IF L-4 AND C-l7 THEN LET S- 
S+< 2*20 > 

800 GOTO 720 

802 PRINT AT L.C;"<1*>" 

003 PAUSE 100 
004 CLS 

805 PRINT "YOU HAVE JUMPED OUT 
OF THE BANK" 

810 PRINT "YOU LOSE 1000 POINTS 

812 LET S-S-1000 

814 PRINT .."•cor# ";S 

815 PRINT .."PRESS N/L TO TRY A 
GRIN." 

820 IF INKEY*-"" THEN GOTO 820 

825 CLS 

830 GOTO 700 

850 PRINT AT L,C;“<i*>" 

855 PRUSE 75 
860 CLS 


862 PRINT "YOU CHEATED.THE 2X81 
DOES NOT LIKE CHERTS." 

865 PRINT .."score ";S 

866 PAUSE 120 

867 IF S<HS AND W<PL THEN GOTO 
890 

868 IF S>HS THEN GOTO 4005 

890 PRINT .."PRESS N/L FOR NEXT 
PLAYER" 

891 IF INKEY*-"" THEN GOTO 891 

892 CLS 

893 NEXT W 

894 GOTO 8 

910 PRINT AT L.C;" " 

915 PRINT AT 11,0;"<i*>" 

916 PAUSE 75 

917 CLS 

920 PRINT "A HUNGRY ALSATIAN GU 
ARD DOG HAS ATTACKED YOU AND GOB 
BLED YOU UP" 

922 PRINT .."score ";S 

923 PAUSE 150 

925 IF S>HS THEN GOTO 4005 

926 IF W-PL THEN GOTO 6000 
930 IF S<HS AND W<PL THEN GOTO 

934 

934 PRINT .."PRESS N.'L FOR NEXT 
PLAYER" 

935 IF INKEY*-"" THEN GOTO 935 
940 CLS 

942 NEXT W 
945 GOTO 8 
950 LET L-L-l 
960 LET C-C+l 
980 GOTO 720 

1000 LET L-L+l 

1001 LET C-C+l 

1002 IF INKEY*-"J" THEN GOTO 850 
1005 IF L>-4 THEN LET L-4 

1130 RETURN 
1200 PRINT 

1205 PRINT AT 5.18; "< 9h )" 

1206 PRINT AT 5.19;" C8*9h>" 

1210 PRINT AT 6.18;"t9h> <B*9h>" 
1220 PRINT AT 7.18;"<9h> <8*9h>" 
1230 PRINT AT 8,18;"<9h) <8*9h>" 
1240 PRINT AT 9,18;"<9h> <8*9h>" 
1250 PRINT AT 10.16; "<90 

1260 PRINT AT 11,10; "<90 

1270 PRINT AT 12,18;"<10*9f>" 

1280 GOTO 720 

1500 PRINT AT 4.19;" " 

1505 LET L-l1 

1506 LET C-19 

1510 PRINT AT L,C;" " 

1511 LET C-C+l 

1512 IF C-27 THEN GOTO 1515 

1513 PRINT AT L,C;"0" 

1514 GOTO 1507 

1515 PRINT AT L,C;"<lo>" 

1520 PAUSE 150 

1530 CLS 

1535 LET X-INT <RND*100>+1 
1540 PRINT "WELL DONE.YOU HAVE G 
AINED ";X*100;" POINTS FOR FIND 
ING THE CORRIDOR" 

1550 LET S«S+<X*100> 

1560 PRINT .."»cor* “;S 

1600 PRINT .,"PRESS N/L TU CONTI 

NUE" 

1610 IF INKEY*-"" THEN GOTO 1610 
1620 CLS 

1700 PRINT "Phase +” 

1720 PRINT .."THERE IS A STEEL D 
OOR IN THE CORRIDOR.YOU MUST 

INPUT THE AMOUNT OF EXPLOSIV 

ES TO BE USED" 

1725 PRINT "<1 OR 2) TONS." 

1730 PRINT .."PRESS N/-L TO CONTI 
NUE" 

1735 IF INKEY*-"" THEN GOTO 1735 
1740 CLS 

1745 PRINT AT 5.0;"<32*9hV 
1750 PRINT AT 8,0,"<32*9h>" 

1755 LET L-7 

1756 LET C-14 

1760 PRINT AT L,C;"0" 

1770 PRINT AT 6,15;"<isP)" 

1780 PRINT AT 7.15;"<l*P )" 

1800 LET V-INT < RND*2 >+l 
1810 INPUT I 

1820 IF IOV AND V-l THEN GOTO 1 


1825 IF IOV AND V-2 THEN GOTO 1 
880 

1840 IF I-V THEN GOTO 1950 

1850 PRINT AT L,C; "(**•)■ 

1851 PRINT AT 6.15;" ";AT 7.15;" 

1855 PAUSE 100 
1858 CLS 

1860 PRINT "TOO MUCH EXPLOSIVE.Y 
OU HAVE BLOWN YOURSELF UP" 
1062 PRINT ,."*core ";S 
1863 PAUSE 120 

1865 IF S>HS THEN GOTO 4005 

1866 IF S<HS AND W<PL THEN GOTO 
1869 

1867 IF W-PL THEN GOTO 6000 

1869 PRINT "PRESS N^L FOR NEXT P 
LAYER" 

1870 IF INKEY*-"" THEN GOTO 1870 
1872 NEXT W 

1875 CLS 
1878 GOTO 8 
1908 PAUSE 100 

1885 CLS 

1886 LET Q-INT <RND*20)+1 

1888 PRINT "NOT ENOUGH EXPLOSIVE 
.YOU LOSE ";Q*100;" POINTS" 

1889 LET S-S-< 0*100 ) 

1890 PRINT ,,"score ";S 

1893 PRINT .."PRESS N/L TO TRY A 
GAIN" 

1895 IF INKEY*-"" THEN GOTO 1895 

1898 CLS 

1900 GOTO 1740 

1950 PRINT AT 6.15;" " 

1960 PRINT AT 7,15;" " 

1965 PRINT AT L.C;" " 

1970 LET C-C+l 

1980 PRINT AT L,C;"0" 

1990 IF C-31 THEN GOTO 1995 

1992 GOTO 1965 

1995 PRINT AT L.C;"<iO>" 

2000 PAUSE 75 
2005 CLS 

2010 PRINT "WELL DUNE.YUU HAVE G 
OT THROUGH THE STEEL DOOR AND H 
AVE GAINED 2000 POINTS" 

2015 LET S-S+2000 

2020 PRINT ,,"scoreL";S 

2030 PRINT ,, "PRESS N/”L TO CONTI 

NUE" 

2040 IF INKEY*-"" THEN GOTO 2040 
2050 CLS 

2100 PRINT "Phase 5" 

2110 PRINT .."YOU ARE IN A LARGE 
ROOM AND THE FLOOR WILL BECOME 
ELECTRIFIED" 

2120 PRINT "AFTER 100 SECONDS.YU 
U MUST FIND THE HIDDEN SWITCH BE 
FORE" 

2130 PRINT "YOUR TIME RUNS OUT" 

2132 PRINT "IF YOU TURN IT OFF 1 
N TIME A CORRIDOR IS PRINTED" 

2133 PRINT "IF YOUR TIME RUNS 00 
T THE SWITCHIS PRINTED" 

2135 PRINT "USE THE CURSOR KEYS 
TO MOVE AROUND” 

2140 PRINT ,,"PRESS N.'L TO CONTI 
NlJE" 

2150 IF INKEY*-"" THEN GOTO 2150 

2160 CLS 

2175 LET T-100 

2194 LET L-7 

2196 LET C-0 

2200 PRINT AT 5,0;"<7*9h■10*sP 9 
h)" 

2210 PRINT AT 8,0;"<7*9h'10*tP•9 

h>" 

1220 PRINT AT 4,6;9h 10*sP■9h> 


40 


SINCLAIR PROGRAMS January 1984 




2300 PRINT RT 12,6;"<9h 10*sP 9h 

2310 PRINT RT 13,6;"<9h■10*sP 9h 

>" 

2320 PRINT RT 14,6;"<12*9h)" 

2325 LET X-1NT <RND*12)+1 

2326 LET Y-INT <RND*9)+7 
2330 PRINT RT L,C;" " 

2333 PRINT RT X,Y;"-" 

2335 LET T-T-l 

2340 LET L-L+<INKEY*-"6“)-<INKEY 
*-"7"> 

2350 LET C-C+<INKEY*-"8")-<INKEY 
•-"5” > 

2355 IF L<-0 THEN LET L-l 

2356 IF L>-14 THEN LET L-13 

2357 JF 0-17 THEN LET C-16 

2358 IF L< >7 AND C<-6 THEN LET C 

-7 

2360 IF L-X AND C-Y THEN GOTO 25 
00 

2365 IF 06 THEN PRINT RT 6,6;"< 
9h>";RT 7,6j“C9h>“ 

2370 IF T— 1 THEN GOTO 2600 
2380 PRINT RT L,C;"0" 

2390 PRINT RT 0,22; “time ’';T;" " 
2400 GCJTO 2330 

2500 PRINT RT L,C;" " 

2501 PRINT RT 14,8;" 

2502 PRINT RT 15,7;“<9h■3*sP 9h> 

2503 PRINT RT 16,7;"<9h•3**P<9h> 
2584 PRINT RT l7,7;"<9h 3*sP 9h> 

2505 PRINT RT 18,7;"<9h'3*sP'9h> 

2506 PRINT FIT 19,7;"<9h 3*»P'9h> 

2507 PRINT RT 20,7;"<9h■3*sP•9h> 

2508 LET L-15 

2509 LET C-9 

2510 PRINT RT L,C;" " 

2511 LET L-L+l 

2512 IF L-20 THEN GOTO 2515 

2513 PRINT RT L,L;"0" 

2514 GOTO 2510 

2515 PRINT RT L,C; *'< 10 >" 

2519 PAUSE 120 

2520 CLS 

2530 PRINT "YOU TURNED OFF THE S 
WITCH IN TIME.YOU SCORED ";T* 
100;" POINTS" 

2535 LET S-S+<T*100) 

2540 PRINT ,,"scor* ";S 

2550 PRINT ,,"PRESS N/L TO CONTI 

NUE" 

2560 IF INKEY*-"" THEN GOTO 2560 

2565 CLS 

2570 GOTO 2700 

2600 PRINT RT L,C;"<!*)" 

2605 PRINT RT X,Y;"-" 

2610 PAUSE 100 
2620 CLS 

2630 PRINT “YOU HAVE BEEN ELECTR 
IFIED." 

2640 PRINT ,,"score ";S 
2642 PAUSE 120 

2645 IF S>HS THEN GOSUB 4005 
2650 IF S<HS AND W<PL THEN GOTO 
2659 

2655 IF U-PL THEN GOTO 6000 

2659 PRINT ,,"PRESS N/L FOR NEXT 
PLAYER" 

2660 IF INKEY*-"“ THEN GOTO 2660 
2670 CLS 

2672 NEXT U 
2680 GOTO 8 
2700 PRINT "Phase 6" 

2710 PRINT ,,"YOU HAVE FINALLY R 
ERCHED THE VAULT.THE COMBINRT 
ION WILL BE PRINTED FOR fl FEW" 
2720 PRINT "SECONDS.YOU MUST REM 
EMBER IT RNDTYPE IT IN WHEN YOU 
ARE TOLD" 

2725 PRINT "IF YOU INPUT THE URO 
NG COMBINRTION THE CORR 

ECT ONE WILLBE PRINTED" 

2730 PRINT "GOOD LUCK." 


2740 PRINT ,,"PRESS N/L TO CONTI 
NUE" 

2750 IF INKEY*-"" THEN GOTO 2750 

2760 CLS 

2770 LET L-15 

2780 LET C-9 

2790 PRINT RT L,C;" " 

2800 PRINT RT 10,6; 9fv5*sP • 9h t 
2601 PRINT RT 11,6;"<9h‘5*sP-9h> 

2802 PRINT RT 12,6; "< 9h 5*sP - 9h ) 

2803 PRINT RT 13,6; "<9h '5*sP >9h> 

2804 PRINT RT 14,6;"<9h 5*sP■9h) 

2805 PRINT RT 15,6;"<9h 5*sP 9h> 

2810 PRINT RT l6,6;"<9h 5*isP 9h 

2811 PRINT RT I7,6;"<9h 5*sP 9h> 

2812 PRINT RT 18,6;"<9h-5*sP■9h) 

2813 PRINT RT 19,6;"<9h=5*sP-9h> 

2814 PRINT RT 20,6;**<9h'5*sP■9h) 

2820 PRINT RT L,C;"0" 

3000 LET M-INT (RND*21000)+10000 
3010 PRINT RT 17,7;M 
3020 PAUSE 25 
3025 PRINT RT 17,7;" 

3027 PRINT RT 0,0;"TYPE IN COMBI 
NATION" 

3028 PAUSE 75 

3029 PRINT RT 0,0;" 

3030 INPUT T 

3040 IF T-M THEN GOTU 3500 
3050 IF TOM THEN GOTO 3750 
3500 PRINT RT 16,8;" 

3510 PRINT RT L,C;" " 

3520 LET L-L+l 

3530 IF L-20 THEN GOTO 3545 

3535 PRINT RT L,C;"0" 

3540 GOTO 3510 

3545 PRINT RT L,C;"Cio>" 

3546 PAUSE 100 

3550 CLS 

3551 FOR F-l TO 21 

3552 PRINT "<32*i£>" 

3553 NEXT F 

3554 PAUSE 100 

3555 CLS 

3550 LET K-INT <RND*500>+100 
3560 PRINT "WELL DONE.YOU HAVE 0 
PENED THE VAULT AND ORE fl VERY 
RICH PERSON" 

3565 PRINT "YOU SCORED ";K*100;" 
POINTS" 

3570 LET S-S+<K*100> 

3575 PRINT ,,"score ";S 
3578 PAUSE 100 
3560 IF S>HS THEN GOTO 4005 
3585 IF S<HS THEN PRINT ,,"PRESS 
N/L FOR ANOTHER GO." 

3590 IF INKEY*-"" THEN GOTO 3590 
3595 CLS 
3600 GOTO 5 

3750 PRINT RT L,C;"<1*>" 

3770 PRINT RT 15,7;"->";RT 15,10 

3780 PRINT RT 17,7;M 
3790 PAUSE 150 
3800 CLS 

3810 PRINT "YUU HAVE BEEN STflBBE 
D BY TWO PIKES.WHRT R PITY YO 
U WERE" 

3820 PRINT "SO CLOSE TO THE £100 

, 000 , 000 ." 

3830 PRINT "NEVER MIND." 

3840 PRINT ,,"score ";S 

3841 PAUSE 150 

3842 IF S<HS AND W<PL THEN GUTO 
3850 

3844 IF S>HS THEN GOTO 4005 
3846 IF U-PL THEN GOTO 6000 


3860 IF INKEY*-"" THEN GOTO 3860 
3870 CLS 
3872 NEXT W 
3880 GOTO 8 

4005 CLS 

4006 IF S>HS THEN LET HS-S 
4008 PRINT "YOU HAVE THE HIGH SC 
ORE" 

4010 PRINT "INPUT NAME <1 TO 12 
LETTERS)" 

4015 INPUT N* 

4020 IF LEN N*>12 THEN GOTO 4005 

4025 IF LEN N*<-12 THEN GOTO 402 
6 

4026 PRINT ,, N* 

4027 PRINT ,,"INPUT AGE" 

4028 INPUT RG 

4029 PRINT ,,RG 

4031 PRINT ,,"OK? <Y/N)" 

4032 PAUSE 20 

4033 INPUT I* 

4034 IF I*-"Y" THEN GUTO 4036 

4035 IF I*-“N" THEN GOTU 4005 

4036 IF W<PL THEN GOTO 4040 

4037 IF W-PL THEN GOTO 6000 
4040 PRINT ,,"PRESS N/L FOR NEXT 

PLAYER" 

4045 IF INKEY*-"" THEN GOTO 4045 
4050 CLS 
4052 NEXT U 
4055 GOTO 8 

5U00 PRINT RT 0,4;"<4#isP 3*sP 4 
*isP’3*sP 4*isP 3**P-3*ISP>" 

5016 PRINT RT 1.4;"(isP'6*sP'isP 
2*sP isP 0*sP >isp 2*sP isP'4*sP 
ISP V 

5020 PRINT RT 2,4;"<2*isP 5*sP i 
sP‘2*sP•isP 3*sP 4*isP 4*sP ISP > 

5O30 PRINT RT 3,4;"<isP6*sP'isp 
•2*sP > isP 3*sP isp 'SP'isP 5 *sp • i 
sP )" 

5040 PRINT RT 4,4;"<isP•6*sP 4*1 
sP 3*sP■isP SP isP’5*sP ISP >" 
5050 PRINT RT 7,2;"<isP■2*sP■isP 
4*sP isP ! 3*sP•isP 1 3*sP'4*isP'3* 
sP•isP■3*sP•isP )" 

5060 PRINT RT 8,2;"<isp sP isp 5 
*SP 2 *isp• 2*sP : isP : 3*SP isp 2*SP 
ISP ' 4*sP ISP SP isP >" 

5070 PRINT RT 9,2;“<2*isP 6*sP l 
sP SP•ISP SP■isP'3*sP ISP 2*SP'1 
sp 1 5*sP ■ isp )" 

5080 PRINT RT 18,2;"<isP SP isP 
5*sP isP-2*sP•2*isP 3*sP •isp 2*s 
P isP 4*sP ISP sP 1 lsP )" 

5090 PRINT RT 11,2;"<isP■2*sP■is 
P 4*sP 1 lsP'3*sP lsP 3*sP 1 4*isP 3 
*sP ■ isp • 3*sP - lsP )" 

5100 PRINT RT 14,9;"<3*isP■2*sP> 
3*isP)" 

5101 PRINT RT 15,9;"< sP isp■ 4*sP 
! isp >" 

5102 PRINT RT 16,9;"<sP isp 4*sp 
■ ISP >” 

5103 PRINT RT 17,9;"<sP isP«4*sP 
■isp)" 

5104 PRINT RT 18,9;"<3*isP>2*sP- 
3*isP)" 

5106 FOR F-l TO 3 

5107 PRINT " BOLDIE SOFT 

WARE 

5108 NEXT F 

5109 PAUSE 150 

5110 CLS 
5150 RETURN 
6000 CLS 

6010 PRINT “WELL DONE ";N* 

6011 PRINT " YOU SCORE 

0 THE MOST POINTS AND HAVE WON 
THE GAME." 

6012 PRINT "YOU SCORED ";H3 
6020 PRINT ,,"PRESS NrL TO HAVE 
ANOTHER GO" 

6030 IF INKEY*-"" THEN GOTO 6030 
6040 CLS 
6050 GOTO 5 


SINCLAIR PROGRAMS January 1984 


41 






Upgrade your 
16K 

ZX SPECTRUM 
Now! 

The CHEETAH 32K RAMPACK simply plugs into the user port at the rear of 
your computer and increases the memory instantly to 48K. 

* Fully compatible with all accessories via rear edge connector 

★ No need to open computer and invalidate guarantee 

* Why send your computer away and wait weeks for upgrade 

★ Fully cased tested and guaranteed. 

Why wait any longer? 


Only £39.95 including VAT and P&P. 


Now make your 
Spectrum and ZX-81 Talk 

The Cheetah "SWEET TALKER" just plugs into the back of the computer using the existing power supply. Based on an 
allophone system you can easily program any word sentence or phrase. Fully cased, tested guaranteed and compatible 
with all accessories via rear edge connector. Complete with demonstration cassette and full instructions. No more lonely 
nights! Simply incredible at £29.75 (Please quote when ordering whether Spectrum or ZX81 owner) 

16K RAM Pack for ZX-81 £19.75 

64K RAM Pack for ZX-81 £44.75 

Prices include VAT, postage & packing. Delivery normally 14 days. Export orders at no extra cost. Dealer enquiries 
welcome. 

Send cheque/PO now to: 

CHEETAH MARKETING LTD 
Dept SU/1 
24 Ray Street 
London EC1 R3 DJ 
Tel: 01-278 6954 

32K RAM Pack and "SWEET TALKER" also available from larger Branches of 

WH SMITH 


42 


SINCLAIR PROGRAMS January 1984 






77 J * tv 


Quintic Warrior Commodore 64 
Purple Turtles Commodore 64 
Aquaplane Commodore 64 
Ring of Power Commodore 64 
Mined-Out BBC model B 32K 
Beeb-Art BBC model B 32K 
The Generators BBC model B 32K 
Velnor s Lair Spectrum 48K 
Smugglers Cove Spectrum 48K 
Traxx Spectrum 4SK 
Gridrunner Spectrum 1 6K/4BK 
Aquaplane Spectrum 4BK 
Xadom Spectrum 48K 
3D Strategy Spectrum 1 6K 
BugaBoo CThe Flea] Spectrum 48K 
Softsolicf 3D Ant Attack Spectrum 

HEAD OFFICE: QUICK SILVA LIMITED, PALMERSTON PARK HOUSE, 


PLEASE SEND ME THE GAMES AS TICKED BUPPUEO ON CASSETTE 

Total cheque/RO. enclosed_ 

Cheque payable to Quicksilva Limited 

NAME_ 

ADDRESS_ 


Send S.A E for Catalogue. QS 
Games are available through Boots, 
J. Menzies. Smiths. Hamleya. 
ana all leading computer stores. 

WARNING: Thi.a programa ora sold 
• Dooming to QUICKSILVA Ltd', tirmi 
of trada and oondltlona of aala. Coplaa of 


PIbbbb Bend order to 

QUICKSILVA MAIL ORDER: 

55 Haviland Road 
Ferndown Industrial Estate 
Wimborna, Dorset 


Spectrum 48K C16K] 

Designer: 

Jeff Minter. 

AQUAPLANE 
Aquatic Action' 
Spectrum 48K 

Author: John Hollis. 

XADOM 
Battle through a 
sophisticated alien 
maze on this Arcade 
Adventure 
Spectrum 4BK 
Author: 

Mike Muscoff. 


QUINTIC WARRIOR 

Stand alone against 
Sinister Craomen and 
Mangled Mutants 

Author: T. P. Watts. 


RING OF POWER 

Search thru the kingdom 
for the mystical ring 
Graphics/Text Adventure. 
Commodre 64 

Authors: 


Sk' thru' Marine 

Maniacs but beware 
the deadly snapping 
Snarks 

Commodore 64 
[Joystick or Keyboard] 

Designer: John Hollis 
& Programmer 
Steve Hickman. 
PURPLE TURTLES 

Tjrtle bobbing with 
the cute Purpilius 
Turtiliorum 

CommoOore 64 .j 

[Joystick or Keyboard). 

Authors: Mark & 
Richard Moore. 


A battle of Nerves and 
Wits Faster than a 
speeding bullet 1 
Spectrum 1 6K 

Author: 

Freddy Vachha. 


BUGABOO 
CTHE FLEA] 

No fleas on This 
Program'' 

Itchy Action 11 
Spectrum 48K 
Author: Indescomp. 




























\ U' I 


ENIGMA^M 
ASSEMBLER 


E nigma assembler for the 

48K Spectrum was written by 
Max Berle of Geel, Belgium. It 
will convert assembly language code, 
such as LD A, ZZ, into machine code, a 
list of numbers which can be under¬ 
stood by the computer. Assembly lan¬ 
guage is easier to understand from the 
users’ point of view. 


1 DIM a<252>' DIM a*<252,l2> 

2 INK 0 PAPER ?■ BORDER ?■ C 
LS < PRINT AT 11,0, FLASH U" 

Please wait a moment " 

SO CO SUB 0000 
110 CLS 

120 PRINT TAB 10;"Options";TAB 
10; "_" 

130 PRINT ' PRINT ■ PRINT • PRI 
NT 

131 BRIGHT 1 

140 PRINT TAB 2;"1.Write"; 

TAB 2; "2.Look";TAB 2; "3_ 

..Run";TAB 0 

14S PRINT AT 15,2; INK 3' PLOT 
7,43' DRAW 0,17 DRAW 190-0' DR 
AW 0--17 DRAW -190,0 
147 INK 0 

1S0 PRINT 3*0; FLASH 1;"Please s 
elect" 

160 PAUSE 0' IF INKEYK"1" OR I 
NKEY«>"3" THEN GO TO 160 
165 BRIGHT 0 

170 GO TO <2000 AND 1NKEY«-"1"> 
+<4000 AND INKEY»-"2">+<5000 AND 
INKEY«-"3"> 

2000 REM Write- 

2010 CLS ■ INPUT "Start address' 
"; st 

2015 PRINT AT 0,0;"Address> ";st 
■ PRINT • PRINT ■ PRINT ■ PRINT 
2020 INPUT "Code' ";a« 

2022 IF v«-"stoP" THEN GO TO 10 
0 

2025 IF LEN a*<>12 THEN GO TO 2 


050 

2030 FOR f-1 TO 252' IF a«-a«f> 
THEN GO TO 2100 
2040 NEXT f 

2050 PRINT INVERSE 1;£0; FLASH 
1;"WronO inPut"' PAUSE 100' PRIN 
T £0;" 

*'' GO TO 2020 
2100 PRINT TAB 3;a« 

2120 POKE st,a< f > 

2121 FOR f-1 TO LEN a« 

2122 IF a*(f TO f>-"N" THEN GO 
TO 2125 

2123 NEXT f 

2124 GO TO 2130 

2125 INPUT "NN' ";s 

2126 IF s>255 THEN GO TO 2125 

2127 LET st-st+1' POKE st,s' PRI 
NT TAB 0;"N-"; INVERSE l;s 
2130 LET st-st+1' GO TO 2020 
4005 LET w-0 

4010 CLS ■ INPUT "Start address' 
";rt 

4015 PRINT AT 0,0; INVERSE l;"Ad 
resse ";rt;£0; INVERSE 1;" 

'M' menu " 

4020 PRINT ' PRINT ' PRINT - PRI 
NT 

4021 FOR f'-l TO 252' IF PEEK <rt 
>-a< f > THEN GO SUB 4500 

4022 NEXT f 

4023 IF u-1 THEN LET rt-rt+1• P 
RINT TAB 0;"N-"; INVERSE l;PEEK 
<rt)' LET w-0 

4035 IF INKEY*-"m" THEN GO TO 1 


00 

4040 LET rt-rt+1• GO TO 4021 
4500 PRINT TAB 3;a«<f> 

4510 FOR e-1 TO LEN a*<f> 

4520 IF a*< £ -e TO e>-"N" THEN L 
ET u-1' RETURN 
4530 NEXT e' RETURN 
5010 CLS 

5020 INPUT "Start address 1 ";d 
5030 CLS ' PRINT USR d' PRINT F 
LASH 1;£0;"Press ana kea" 

5050 PAUSE 0 GO TO 100 
8000 RESTORE 
8010 FOR f-1 TO 252 
8020 READ a*< f ), a< f > 

8030 NEXT f 

9010 DATA "noP",0,"Id bc,NN",l," 
Id <bc ), a" ,2, "me be" ,3,"inc b", 
4- "dec b",5,"Id b,N”,6,"rlca",7, 
"ex af,af'",8,"add hi,be",9-"Id 
a,<bc>",10,"dec be",11,"Inc c",l 
2,"dec c",13,"ld c,N",14,"rrca", 
15,"djinz DIS",16,"Id de,NN",17, 
"Id <de ),a",18,"inc de",19,"inc 
d",20,"dec d",21,"Id d,N",22,"rl 
a",23, "jr DIS",24,"add hl,de",25 
,"ld a,<de>",26,"dec de",27,"inc 
e",28,"dec e",29,"ld e,N",30,"r 
ra",31,"jr nz,DIS",32,"Id hi,NN” 
,33,"Id < NN >,hi",34,"inc hi",35, 
"inc h",36,"dec h",37 
9020 DATA "Id h,N",38,"daa",39," 
jr z, DIS",40,"add hi,hi",41 , "Id 
hl,<NN>",42, "dec hi",43, "inc l", 
44,"dec l",45,"Id l,N",46,"cPl", 


44 


SINCLAIR PROGRAMS January 1984 








47,"jr nc,DIS",48, "Id aP,NN",49, 
"Id < NN),a",50, " inc aP",51,"inc 
chi )", 52/ "dec Chl)",53,"ld Chi), 
N",54/"acf "/55/"Jr c,DIS",56 ,"ad 
d hi,aP",57/"Id a, CNN)",58/"dac 
*P",59,"inc a",60,"dac a",61,"Id 
a,N",62, "ccf",63. "Id b,b",64,"l 
d b/C",65,"Id b, d",66,"Id b,a",6 
7,"Id b,h",66,"Id b,l",69,"ld b, 
<hl>",70, "Id b, a",71,"Id c,b"/72 
/"Id c,c" ,73 ,"Id c,d"/74/"Id c,a 
",75,"Id C/h" ,76 ,"Id c, l",77 ,“Id 
c,Chl )",78."Id c, a",79,"Id d,b" 
, 80 ,“Id d,c ",81 

9030 DATA "Id d/d"/62/"ld d,e",8 
3,"Id d/h",84,"Id d,l",85,"Id d, 
Chl)",86,"ld d,a",07,"Id a,b",88 
, " Id a, c",89,"Id a. d" , 90, "Id a, a 
",91,"Id a,h",92,"Id •/l",93,"Id 
a, Chi>",94/"Id a,a", 95,"Id h,b" 
,96,"Id h,c",97,"Id h/d",98/"ld 
h, a", 99, “ Id h,h" , 100, " Id h,l",10 
1, "Id h,<hl)",102/"ld h,a.", 103, " 
Id l/b",104,"Id l,c",105,"Id l,d 
",106,"Id l,a",107,"Id l,h“,106, 
"Id l,l",109,"Id l/Chl110,"Id 
I,*",111,"Id Chi ),b",112,"Id Ch 
l>,c",113,"Id <hl ),d",114,"Id Ch 
l >,•", 115, "Id <hi >,h", 116, " Id Ch 
l>,l",117,"halt",118,"Id <hl),a" 
,119,"Id a,b",120,"Id a,c",12l," 
Id a, d",122,"Id 4/4",123,"Id a,h 
", 124,"Id a, l",125 
9040 DATA "Id a,Chi )", 126,"Id a, 
a",127,"add a,b",128,"add a,c",l 
29,"add a,d",130,“add a,*",131," 
add a,h",132,“add a,l", 133,"add 
a,<hl>",134,"add a,a",135,"adc a 
,b"/136,"adc a,c",137,"adc a,d", 
138,"adc a,e",139."adc a,h",140, 
"adc a,1",141,"adc a,Chi)".142," 
adc a- a", 143,"»ub b",l44,"*ub c" 
,145,"*ub d",146,"»ub *",147,"au 
b h", 148, "aub l", 149, "»ub (hl) 1 ', 
150,“aub a", 151,"abc a,b",152,"a 
be a,c"/153,"abc a,d",154,"abc a 


,4"/155/"abc a,h",156,"abc a,l“, 
157,"abc a,Chi )",158,"abc a,a"/l 
59,"and b",160,"and c",161/"and 
d",162/"and 4",163,"and h",164," 
and 1",165,"and <hl>",166,"and a 
", 167,"xor b",168,"xor c"/169 
9050 DATA "xor d"/170,"xor 4",17 
1, “xor h", 172, ,f xor l”, 173, "xor C 
hi>",174,"xor a",175,"or b",176, 
"or c",177,"or d",178,"or 4" ,179 
,"or h",180,"or l",181,"or Chi)" 
,182,"or a",183,"cP b"/184,"cP c 
",185,“cP d",186,"cP 4" ,187,"cP 
h",188,"CP l",189,"cP Chi>",190, 
"cP a",191,"rat nz",192, "Pop be" 
,193,"jP nZ/NN",194,"JP NN",195, 
"call nz,NH",196,"Push be",197," 
add a,N",198,"rat 0",199,"rat z" 
,200,"rat",201."JP z, NN",202."ca 
ll z,NN",204,"call NN",205,"adc 
a,N",206-"rat 8",207,"rat nc",20 


8,"PoP da",209,"JP nc,NN",210,"o 
ut <N),a",211,"call nc,NN"/212," 
Puah da",213 

9060 DATA "aub N",214,"rat 16",2 
15,"rat c"/216/"axx"/217/"JP c.N 
N",218."in a,CN)"/219,"call c-NN 
",220,"abc a,N"/222."rat 24",223 
,"rat Po",224,"POP hi",225," jP p 
0 ,NN",226,"ax <aP>,hl"/227,"call 
Po/NN",228,"Puah hi",229,"and N 
",230,"rat 32"-231."rat Pa",232, 
"jP Chi )"/233 ,"jP Pa,NN",234,"ax 
de,hi",235,"call Pa,NN"/236,"xo 
r N".238,"rat 40",239,"rat P",24 
0,"POP af"/241/"jP P,NN",242,"di 
",243,"call P/NN",244,"Puah af", 
245,"or N",246,"rat 40",247,"rat 
m",248,"Id sP/hl M /249,"JP m,NN" 
,250,"ai",251,"call w,NN",252,"c 
P N",254,"rat 56",255 
3999 RETURN 



1 FOR A-0 TO 7- READ 6 
U9R "<9a >"+A,6 1 NEXT A 

2 FOR A-0 TO 7’ READ 8’ 
USR "C 9b >“+A,B 1 NEXT A 

3 FOR A-0 TO 7 READ 6 
U3R “C9c )"+A/b 1 NEXT A 


4 LET ac-0 1 LET v-0 

5 LET u-21 T LET x-15- LET a-2 
0' LET r-15 

10 LET a-INT <RND*32)' LET b-2 
20 PRINT AT b,a; INK 2j"C9a>" 
30 PRINT AT «/Xj INK 4r'C9b> " 

35 PRINT AT a+l.r-lj" "• PRI 
NT AT a,r j"< 9c)" 

36 BEEP .01-a LET S-2-1 

30 PRINT AT 0,6;"SCORE ";ac 

39 PRINT AT 0,21;"MISSILES ">V 

40 LET c*-INKEY« 

50 IF c*-"5" THEN LET r-r-1 
62 IF c*-"6" THEN LET r-r+1 
70 IF a-1 THEN CO TO 150 
80 IF r-a AND a-b THEN GO TO 


160 


90 IF ac-20 THEN CO TO 1000 
95 IF v-25 THEN GO TO 2000 
110 CO TO 20 

150 CLS • LET v-v+1> CO TO 5 
160 PRINT AT 0,0; INK 1; FLASH 
1;"BANC I" 

163 FOR a-30 TO 33’ BEEP .05,a 
NEXT a 


170 LET ac-ac+1 
180 CO TO 10 

1000 CLS PRINT "YOU MADE IT UI 
TH ";25-v;" MISSILES LEFT" 

1005 FOR J-l TO 32’ BEEP .05,J 
1020 NEXT J 
1030 GO TO 1005 

2000 CLS 

2001 PRINT "YOU HAVE JUST USED U 
P ALL YOUR MISSILES BUT THERE A 
RE STILL SOME INVADERS LEFT" 
2010 BEEP .5,0' BEEP .5,-2’ BEEP 



.5,-4 

2020 GO TO 2010 

3000 DATA 28,62/42/62/127/99,65/ 
65 

3810 DATA 24/24/24/60,60/126/255 
,255 

3020 DATA 24,60,126/24,24/126/12 
6,24 


M ISSILE for the 16K Spectrum 
was written by Tim Rose of 
Amisfield, Dumfries. Guide 
your missile with keys 5 and 8 towards 
the intruder. You have 25 missiles and 


20 intruders to shoot. 


SINCLAIR PROGRAMS January 1984 


45 







THE ARCADE COLLECTION 



All these games are available for the ZX Spectrum 48K for the incredible 
price of only £5.50 including P&P VAT etc. Just complete the mail 
order form for prompt dispatch by return of post. 

Arcade are committed to original game concepts so look out for new 
titles in the Arcade range. Trade enquiries welcome. Phone Orpington 
35639 anytime or write to Arcade Software Ltd, Technology House, 32 
Chislehurst Road, Orpington, Kent BR6 ODG. 



TO: ALL MAIL ORDERS 

DON'T FORGET YOU CAN ALWAYS ORDER ON I 
THE TELEPHONE WITH YOUR CREDIT CARD, i 


Oty. 

Item 

Item Price 
£ 

Total 

£ 

'I endow a Cheouo'poetal on*, payable lo ARCADE SOFTWARE LTD. la 

( 'Pleaw charge to my AccetaBarclevcarO account no 

ii 1 1 ii 1 1 1 1 1111 1 1 r i 


















SP I 






































































































SftlS 




ISMBR 


$s= e m 


MORRIS 
meets the 






AT THIS vwiy 
HOMCNT, 

T HO us AMD'S C* 

PIMANIACS 

All ov£R -rwe 

WORLD ARC 

SEEJCINIC, THE 

real £6000 
GOLDEN SOMOML 

oo p/. the 

HMAN has 

OEGOMt A 

COLT. 










































































llhiacVcRK!' 




£«3S^CPS 


[ KE STORM SO FORTMCR] 


I wo t* " 

TAHWRO 


■CWEY, TOTAL- 

ACCI8S/IinK>/IIASTUCABD 


<0705) 735243 Mall OnJ«i 


HAVING H10004 __... 

A WOBLp-FAMOUS WUBN' 

HOLLYWOOD ST/Ml I (|V\ 

m -aaoMtMo; JIJ> 

AUTOMATA WILL 

stKP X ux»y 
PLAYERS TO 
MEET THEM / 

TRACK. QRnUtHO 
AS. At TOURS 
THE O-S.A-- 
CACTOOUS, 

MUSIC ^ LARFS. 4^ 


49 






































































A S A helicopter pilot you must firing needs expert timing. Chopper 
destroy all the enemy bases. A Squad was written for the 16K Spec- 
variety of points can be gained trum by R Davidson and P Watts of 
for the different types of buildings and Seamills, Bristol. 


X LET HS-G CLS > 00 SUB 301’ 
GO SUB 1GGG 

2 LET SC-0' LET SHUT-14' LET 
7-RNDK100 LET x=RND*50 

3 INK 4 BORDER 1> CLS • FOR 
n-0 TO 20 • BEEP Z,x' PRINT AT n, 
3l;"<isP >"• NEXT n 

4 FOR n-0 TO 20- 8EEP z,x- PR 
INT AT n, 0;"<isP >"• NEXT tv FOR 
n-0 TO 31 BEEP z,x 1 PRINT RT 20 
/nx "< isP >" ' NEXT n 1 FOR n-0 TO 3 
1' BEEP z,x PRINT RT 0,n;"<isP> 

NEXT n 

5 INK 0' PRINT RT 13,1; INK 1 
; FLRSH 1;“*"’ PRINT RT 19,3;"*" 

PRINT RT T3 , 4 1 ■[£." ■ PRINT RT 15 
PRINT RT 19,9;"a" 1 PRINT 
RT 13,10;"a"' PRINT RT 19,11;"* 


BEEP .05,fl+5 

101 PRINT RT a,b;"e" 1 FOR z-0 T 
U 5' NEXT z 

104 IF *=19 RND b-1 THEN PRINT 
RT *,b; FLASH 1; INK 2;"b"> LET 
sc-sc+200' 00 TO 10 
1G5 IF *-13 RND b-3 THEN PRINT 
RT a,b; FLASH 1; INK 2; "b" LET 
sc-sc+50- 00 TO 10- 

106 IF *-19 RND b-4 THEN PRINT 
RT *,b; FLASH 1; INK 2;"b"■ LET 
sc-sc+100' 00 TO 1G 

107 IF *-19 RND b-7 THEN PRINT 

RT *,b; FLRSH 1; INK 2;"b"' LET 
sc-sc+50’ 00 TO 10 - 

108 IF *=19 RND b-9 THEN PRINT 
RT *,b; FLRSH 1; INK 2;"b"• LET 
»c-sc+50' 00 TO 10 

109 IF *=19 AND b-10 THEN PRIN 
T RT a,b; FLRSH 1; INK 2;"b"’ LE 
T sc-sc+50' 00 TO 10 

110 IF *=19 RND b-11 THEN PRIN 

T RT a,b; FLASH 1; INK 2;"b"' LE 
T sc=sc+50' 00 TO 10 —’ 

111 IF a-19 AND b-13 THEN PRIN 

T RT a,b; FLASH 1; INK 2;"b"’ LE 
T sc-sc+100 00 TO 10 

112 IF *-19 RND b=14 THEN PRIN 

T RT *,b; FLRSH 1; INK 2;"b"• LE 
T sc-sc+100' 00 TO 10 - 

113 IF *-19 RND b-16 THEN PRIN 
T RT *,b; FLASH 1; INK 2;"b"■ LE 
T sc-sc+50’ GO TO 10 

114 IF *-19 RND b=l9 THEN PRIN 
T RT a,b; FLASH 1; INK 2;"b"- LE 
T sc-sc+50’ 00 TO 10 

115 IF *-19 RND b-20 THEN PRIN 

T RT a,b; FLRSH 1; INK 2;"b"• LE 
T sc-sc+50’ 00 TO 10 — 

116 IF *-19 RND b-24 THEN PRIN 

T RT *,b; FLASH 1; INK 2;"b"’ LE 
r sc-sc+100- GO TO 10 — 

119 IF *>18 THEN PRINT INK 3; 
FLRSH 1;RT *,b;"* M • BEEP .1,.2= 
BEEP .1,1' BEEP 75,.1■ BEEP .05 

, .1 PAUSE 10' PRINT RT .. 

LET sc-sc-200 1 00 TO 10 

300 00 TO 1O0 

301 POKE USR "*”,BIN 00011010 

302 POKE USR "a"+l,BIN 00111110 

303 POKE USR "*"+2,BIN 01111111 

304 POKE USR "*"+2,BIN 01111110 

305 POKE USR "*"+3,BIN 10011001 

306 POKE USR "*"+4,BIN 11111111 

307 POKE USR "*"+5,BIN 11111111 

308 POKE USR "a"+6,BIN 11100111 

309 POKE USR "*"+7,BIN 11100111 

310 POKE USR "b",BIN 60101010 


6 PRINT RT 19,13; X" ' PRINT fl 
T 19,14;'X" PRINT RT 19,16;"*"' 

PRINT RT 19,19;"*"' PRINT RT 19 
,20;'^' PRINT RT~l9,24; "a" 

7 INK 1 PRINT RT 2,2;~ 7r 999999 

999 99 9 99" 

8 PRINT RT 3,3;"99 99 99 

99 9 9 " 

3 FOR n-0 TO 5' INK 2’ CIRCLE 
240,160, r. NEXT n INK 0 
10 LET a=4 LET b-1 

20 PRINT RT 21,17;"SHOTS LEFT- 
";shot PRINT RT 21,0,"SCORE- " 

;sc PRINT RT a,b;" cd"' BEEP .0 
03,40 

21 IF sc—0 THEN PRINT RT 21,8 

;" "■ PRINT RT 21,0;"SCORE- " 


22 IF sc>=1000 THEN 00 TO 600 


23 IF SC—50 THEN PRINT RT 21 

, 10 ;" " 

24 IF SHOT-9 THEN PRINT RT 21 

,36;" " 

25 IF SC-50 THEN PRINT RT 21, 
10 ;" " 

36 LET b-b+1 

40 FOR 7-0 TO 5’ IF b-25 THEN 
LET b-1 LET a=4 PRINT RT 4,25 


56 IF INKEY»-"D" OR INKEY*-"d" 
THEN LET shot-shot-1• PRINT RT 

..GO TO 99 

60 GO TO 20 

99 IF shot-0 THEN PRINT 1NVE 
RSE 1; FLRSH 1;RT 11,10;"GAME OV 
ER"' FOR N-0 TO 500' NEXT N' GO 


50 


SINCLAIR PROGRAMS January 1984 




311 POKE USR "b"+l/BIN 10011 

312 POKE USR "b"+2/8IN 10011010 

313 POKE USR "b"+3/BIN 00100010 

314 POKE USR "b"+4/BIN 01010101 

315 POKE USR "b"+5/BIN 11101000 
"b"+6/BIN 1100&110 
“b"+7/BIN 10100101 
"c"/BIN 10001001 

319 POKE USR “c"+l/BIN 01010000 

320 POKE USR "c"+2/BIN 00111111 
"c"+3/BIN 01010011 
"c"+4/BIN 10001000 
"c 11 +5 /BIN 00000000 
"c"+6/BIN 00000001 
"c"+?/BIN 00000001 

/BIN 11111111 
+1/BIN 00010000 
328 POKE USR "d"+2,6IN 11111100 
323 POKE USR "d"+3/BIN 11 HI 110 

330 POKE USR "d"+4,BIN 11111110 

331 POKE USR "d"+5/BIN 00111100 

332 POKE USR "d"+b/8IN GOQiOOBi 
.333 POKE USR "d"+7,BIN 11111110 

/BIN 00000000 


316 POKE USR 1 

317 POKE USR 1 

318 POKE USR ' 


321 POKE USR ' 

322 POKE USR 

323 POKE USR 

324 POKE USR 

325 POKE USR 

326 POKE USR 

327 POKE USR 


334 POKE USR 

335 POKE USR 

336 POKE USR 

337 POKE USR 
i POKE USR 

339 POKE USR 

340 POKE USR 

341 POKE USR 

342 POKE USR 

343 POKE USR 

344 POKE USR 

345 POKE USR 

346 POKE USR 

347 PUKE USR 


•1/BIN 00011000 
e“+2»BIN 00111100 
e''+3/BIN 000110O0 
e"+4/BIN 000110Q0 
e"+5,BlN 00100100 
e"+6,BIN 00111100 
e"+7/BIN 00O11000 
f"/BIN 11111111 
f"-H,&IN 10011001 
f"+2/BIN 11111111 
C"+3,BIN 10011001 
f"+4/BIN 11111111 
r"+5/BIN 10011001 


348 POKE USR "f"+6/BIN 11100111 


349 POKE USR 

350 POKE USR 

351 POKE USR 

352 POKE USR 

353 POKE USR 

354 POKE USR 

355 POKE USR 

356 POKE USR 

357 POKE USR 
900 RETURN 

100Q LET ft*="***********.**(l 1983 
************* 


f"*7 /BIN 11100111 
'9"/BIN 00111000 
9” + l,6IN 0011110O 
l 9"+2,BIN 01000001 
'9"+3/BIN . 

9"+4,BIN 01000011 
'9"+5/BIN 01000001 
9"+6,BIN 00100100 
9"+7,BIN 00000000 


NTROL~ 

L OF fi 
CH YOU MUST 
NEMY BASES 


in9 *“200> 
th» d ke* > 
ODE h 

1001 LET 0-0 
ft* 


-CHOPPER CO 
YOU ARE IN CONTRO 
HELICOPTER IN WH1 
DESTROY ALL THE E 


POINTS RATIO- 

*-50 f-100 <fl**h 
YOUR CHOPPER cd 
MUST BOMB *_(. with 
ALL THE BASES ± £ 
TO MAKE THEM EXPL 
GOOD LUCK I!" 

LET P-0! LET C-LEN 


1002 FUR N=1 TO G 

1003 IF P<32 THEN GO TO 1005 

1004 LET 0-0+1' LET P-0 

1005 PRINT AT 0/P; INK 1;” cd" 

1006 BEEP RND/-50/RND*50 

1007 PRINT AT 0/P;ASt N >• LET P-P 
♦ 1 

1008 NEXT N 
5000 RETURN 

6600 CLS ' IF SOHS THEN PRINT 
"WELL DONE! YOU HAVE TODAYS 
HIGH SCORE" 

6001 PRINT AT 6/0;"DO YOU WANT T 
U PLAY AGAIN Y/N?" 

6002 INPUT A* 

6005 IF A*""Y" OR ft*-"v" THEN C 
LS ■ GO TO 2 

6006 STOP 


SINCLAIR PROGRAMS January 1984 


51 







s LySbfe 9006 
iG LET s*-WKRO> 
lb LET VS-USC INT C RND* 15 :<+1 > 

17 IF VS-USC8) AND P=1 THEN GU 
TO lb 

80 PRINT AT 17,0;"I CRN SEE 

V* 

2b GOSUB 990O 

30 PRINT RT 17,0;"i RM ";SS 
3b GOSUB *300 

40 PRINT RT 17/0;"I RM CRRRY1N 
C'-" 

4b fur f-i to s 

50 PRINT CSCF) 
bb NEXT F 
60 GOSUB 3900 
65 GOSUB 9300 

70 PRINT RT 17,0;"WHAT NOW" 

75 INPUT fl* 

76 COSUB 9300 

60 IF R*-"T" THEN GOTO 1000 
65 IF RS="D" THEN GOTO 2000 
90 IF A*="0" THEN GOTO 3000 
95 IF RS="P" THEN GOTO 4006 
106 IF A*-"S" THEN GOTO 5066 
105 IF RS="H" THEN GOTO 6000 
110 IF AS="R" THEN GOTO 7000 
115 IF fl*="M" THEN GOTO 8000 
120 GOTO 70 
1WO0 REM TfikE 

1005 IF VS-GSC2) OR VS=U*Cb) OR 
V*»0Sc7> OR VS-GSC 10) THEN GOTO 
20 

1610 IF CSc 1,1 TO 7X>N$ RND CSC 
2/1 TO 7)<>N* AND CSC 3,1 TO 7><> 
N* THEN GOTO 20 

1015 IF CS<1/1 TO 7 >~N* THEN GOT 
0 1030 

1020 IF L ®C 2, 1 TO 7>=NS THEN GUT 
0 1040 

102b IF CSC 3,1 TO 7>=NS THEN GUT 
0 1050 

1030 LET CSC 1 >-V® 

1035 GOTO 1070 
1640 LET C SC 2 )~V* 

1045 GOTO 1070 

1050 LET C*C3)«VS 

1670 PRINT RT 17.0;"O.K." 

1072 IF VS=OS<3) THEN LET S=S+3 

1073 IF VS=0Sc8> THEN LET S-S+50 

1074 IF VS-0SC8) THEN LET P=1 

1075 GOSUB 9900 
1077 LET VS-N* 

1060 GOTO 20 
2600 REM DROP 

2005 PRINT RT 17.6; "DROP WHRTC1, 
2/3)" 

2010 INPUT DR 

2015 IF DR<1 OR DR>3 THEN GOTO 2 
010 

2017 IF CSC DR >=OSC 3 > THEN LET S- 
S-5 

2020 LET C*CDR)=N* 

2025 GOSUB 9300 
2030 GOTO 26 
3000 REM UUIT 
3005 FAST 
3010 CLS 
3015 SLOW 
3020 STOP 


3025 GOTO 10 

4000 REM PRESS 

4005 IF RU<>2 THEN GOTO 20 

4010 G0SU8 9900 

4015 PRINT RT 17,0; "_bl 

ast off-'*"'-- 

4020 FOR F=1 TO 6 

4025 GOSUB 9960 

4030 NEXT F 

4035 LET S=S+50 

4037 IF P=0 THEN LET S=S-30 

4040 IF P“0 THEN GOTO e?00 

4050 IF P=1 THEN GOTO 8560 

5660 REM SHOOT 

5605 IF VS< >OSC 2 > AND V*OU*<5) 
AND V*<>0*<7) THEN GOTO 20 
5610 IF CSC 1 ><>OSC 1 > AND L SC 2 X > 
US' 1 > AND CSCJX >0*' 1 > THEN GOTO 
20 

5015 IF LS<1X>USC9> AND CSC2X> 
US'9) RND CSC3)OOS<y> THEN GOTO 
20 

5026 IF INT CRND*3>=1 THEN GOTO 
5300 

5025 PRINT RT 17.0;"22222RP YOU 
VAPORISED HIM" 

5030 LET VS-N* 

5032 LET S-S+10 

5033 GOSUB 9900 
5035 GOTO 20 

5300 PRINT RT 17/0;"I HAVE BEEN 

SHOT..CROAK..GROAN_" 

5305 FOR F-l TO 6 
5310 GOSUB 9900 
5315 NEXT F 
5320 GOTO 8700 
6000 REM HIT 

6005 IF INT C RNDS3 >-l THEN GOTO 
6500 

6010 PRINT RT 17.0;"YOU SMASHED 
HIM" 

6015 GOSUB 9900 

6020 FOR F-l TO 3 

6025 IF CSC F )=OSC 1 > THEN PRINT R 

T 17,0;"HE DENTED YOUR BLRSTER" 

6030 IF CSC F )-0S< 6 > THEN PRINT fl 

T 17,0;"HE HERD BUTTED YUUR SIGN 

6035 IF CSC F )»OSC 9 > THEN PRINT fl 
T 17,0;"HIS HERD CRUNCHED YUUR R 
MMO" 

6040 SCROLL 
6045 NEXT F 
6050 GOSUB 9968 

6052 LET S-S+10 

6053 LET VS-NS 
6055 GOTO 20 

6500 PRINT RT 17,0;"HE HURT ML,T 
HE BULLY" 

6505 FOR F-i TO € 

6510 GOSUB 9900 
6515 NEXT F 
6520 GOTO 8900 

7000 REM RUN 

7001 IT VSOOSC2) RND VS< >OSC 5 > 
RND VSOUSC8) THEN GOTO 20 
7005 IF INT CRND*3>-1 THEN GOTO 
750O 

7016 PRINT RT 17,0;"I OUT RAN HI 
M" 


7015 GOSUB 9900 

7020 LET RQ-RU+2 

7025 IF R0>2? THEN LET RU-1 

7030 GOTO 10 

7500 PRINT RT 17,0;"HE HRS CRUGH 
T ME" 

7505 GOSUB 9900 

7510 PRINT RT 17,0;"I WILL HIT H 
IM" 

7515 GOSUB 9900 

7520 GOTO 6000 

8000 REM MOVE 

0005 PRINT RT 17,0; "F/'B/S" 

e010 INPUT 2S 

8015 IF 2S-"F" THEN LET RO-RO+1 
6020 IF 2S-"B" THEN LET RO-RU-1 
8025 IF R0<1 OR R0>27 OR 2S«"S" 
THEN LET RO-INT CRND*27)+1 

8027 LET S-S+l 

8028 GOSUB 9900 
8630 GOTO 10 

8500 REM WIN 

8501 PRINT RT 0,0; 

8505 PRINT "WE HAVE SAVED THE PR 
INCESS RND ";RT 5,0;"WE RRE NOW 
HEROS" 

8510 PRINT RT 15,O;"SCORE-";S 
3515 PAUSE 9000 
8520 GOTO 3000 

8700 REM NO PRINCESS 

8701 PRINT RT 0,0; 

8705 PRINT "WE WILL BE HATED BY 
EVERYONE ";RT 5,0;"BECAUSE WE FO 
RGOT THE PRINCESS" 

8710 GOTO 8510 
8980 REM FAIL 
8901 PRINT RT 0,8; 

8905 PRINT "WE HAVE FAILED OUR M 
ISSION" 

8910 GOTO 8510 

8999 STOP 

9000 FAST 

9002 DIM DSC27,60) 

9005 LET DSC 1)-"IN THE STORAGE L 
UMPAPTMENT THERES AN ELEVATOR HE 
RE" 

9016 LET DSC 2)-"IN MY SPACE SHIP 
,A RED BUTTON SAYS''BLAST UP 

F»" 

9015 LET DSC 3)-" NEXT TO MY SPAC 
E SHIP" 

9020 LET DSC 4 1-"UN THE FLIGHT DE 
Ck OF GENERAL DOOMS BATTLE 

CRUISER" 

9025 LET DSC 5 )=”IN A HALLWAY" 
9030 LET DSC 6)-"IN THE SUPPLY DE 
POT" 

9035 LET DSC 7)»D$C 5 > 

9040 LET DSC 9)-"IN THE STRATEGY 
PLANNING ROOM" 

9045 LET DSC 19)-"IN THE DECONTAM 
INATION CENTRE" 

9050 LET DSC 10)="IN THE TRACTOR 
BEAM CONTROL ROOM" 

9055 LET OSC11)-"IN THE WOMENS T 
OILETS" 

9060 LET DSC 12)-"IN THE WOMENS B 
ATHROUM" 

9065 LET DSC 13)="IN THE INTERROC 
ATION ROOM" 


52 


SINCLAIR PROGRAMS January 1984 









W ICKED GENERAL DOOM Q(quit), P(press), S(shoot), H(hit), blaster and some ammunition. You can 
has captured Princess Leya. R(run), M(move). Once you have en- carry only three things at a time, includ- 
Your mission is to find her tered M you will be asked F/B/S? (for- ing the princess, 
and take her to safety in your spaceship, ward, backward, sideways). Written for the 16K ZX-81 by Jona- 

Commands to use are T(take), D(drop), You can shoot only when you have a than Huffer of Walsall, West Midlands. 


SINCLAIR PROGRAMS January 1984 


53 










D amsels in distress was 

written for the IK ZX-81 by 
Stuart Lang of Clarkston, Glas¬ 
gow. Manoeuvre your bold knight (in¬ 
verse O) with the cursor keys to rescue 
the damsel (inverse asterisk) and take 
her to the castle (inverse +). To make it 
easier you can run off one side of the 
screen and you will re-appear on the 
other. You must avoid the dragons (in¬ 
verse ") which guard her. 


10 LET fl-PI/'PI 

20 LET B-fl 

30 LET C-B 

40 LET D-31 

50 LET E-20 

60 LET F-C 

70 LET S-PI-PI 

75 LET U*-"<i*>" 

80 PRINT RT Rt&j "< iU>";RT C,Dj 
"< t‘* >" jflT E» F> "< i" )" jRT 17 j 28j "C 
i +)"j RT 3,28;U* 

90 LET fl-fl-<INKEY*-"7">+<INKEY 
•-" 6 " > 

100 LET B-B-<INKEY*-"5")+<INKEY 
•-"B" > 

120 IF B-0 THEN LET B-30 
130 IF 8-31 THEN LET 8-0 
140 LET C-C-<fl<L)-KR>C) 

150 LET D-D-< B< D >+< 8 >[>) 

160 LET F-F-<B<F )+< B>F ) 

170 LET E-E-< R<E >+< fl>E) 

180 IF C-R AND D-B OR E-R AND F 
-B THEN PRINT "RHH'-jSjZ 
185 IF fl-10 AND B-16 OR fi-3 RNO 
B-28 THEN LET U*-"" 

190 IF fl-17 RNO 8-28 AND U*-"" 
THEN GOTO 350 
200 CLS 
300 GOTO 80 
350 LET S-S+l 
360 GOTO 75 


SINCLAIR PROGRAMS January 1984 







ACT 



ABOUT OUR PROGRAMMABLE 
INTERFACE 

Surpassing the outstanding specification of 
our .Interface Module II which still offers 
the best software support at its price, a 
Joystick Interface that is compatible with 
ALL SOFTWARE through its unique hard¬ 
ware programmable design. 

The Interface plugs on to the rear connector 
of your ZX8I or ZX Spectrum. 

Quick clip-on connections, which are con¬ 
figured from a reference card supplied, allow 
you to define which of the forty keys are 
simulated by which action of the Joystick. 
A pack of ten Quick Reference Programming 
Cards makes setting for your favourite games 
even easier. These can be filled in to show at 
a glance the configuration required and 
stored in the cassette case of the particular 
game. When you change to a game using 
different keys the module is re-programmed 
in a few seconds. 

As with our Interface Module II the Pro¬ 
grammable Interface accepts all standard 
switch Joysticks that are Atari-compatible. 
Two sockets are available which are con¬ 
nected together for two player games which 
use the same keys for both players. 

The Interface resides in the keyboard 
address space and does not affect its opera¬ 
tion or interfere with any other add-ons. A 
rear extension edge connector will accom¬ 
modate expansion of your system. 

The unique AGF key simulation principle 
makes it extremely easy to incorporate 
Joystick action in your own programs. All 
eight directions and fire are read by simple 
BASIC. 

With every order comes a free demonstration 
program called ‘Video Graffiti’ plus a full 
set of instructions. 



* Programmable design gives TOTAL soft¬ 
ware support. 

* Accepts Atari, Competition Pro, Wico, 
Starfighter, Quick Shot, Le Stick etc. 

* Rear extension connector for all other 
add-ons. 

* Free demo program and instructions. 


PACKAGE CONTENTS SUPPLIED 

• Programmable Interface Module as illus¬ 
trated, complete with clip-on program¬ 
ming leads. 

• Self adhesive programming chart detailing 
how to define which key is simulated by 
UP, DOWN, LEFT, RIGHT, and FIRE. 
This can be fixed on to the case of your 
computer or if preferred the protective 
backing can be left on. The chart is made 
of a very durable reverse printed plastic 
and is extremely easy to read. 

• One pack of ten Quick Reference Pro¬ 
gramming Cards for at-a-glance setting 
to your games requirements. The card 
allows you to mark the configuration in 
an easy to read fashion with space to 
record the software title and company 
name. 

• Video Graffiti demonstration program 
which is written totally in BASIC to illus¬ 
trate how all eight directions and fire 
can be read. This is also a useful high 
resolution drawing program. 

• 12 months guarantee and full written 
instructions. 

JOYSTICKS 

ATARI , 

CONTROLLERS \ -J . 

FOR USE WITH OUR INTERFACE 
Module or VIC 20, Commodore 64, 
Atari VCS, Atari 400, Atari 800 

If you require extra Joysticks for our 
original interface module mark order 
‘OLD’ Joysticks 


ONLY £7 54 inc VAT + P&P 

FROM: MR/MRS/MISS 
ADDRESS 


SEND C.W.O. (NO STAMP NEEDED) TO: A.G.F. HARDWARE, DEPT. SPR 


FREEPOST, BOGNOR REGIS, WEST SUSSEX, P022 9BR 


QTY 

ITEM 

ITEM PRICE 

TOTAL 


PROGRAMMABLE INTERFACE 

33.95 



JOYSTICK(S) 

7.54 



PACK(S) QUICK REFERENCE CARDS 

1.00 


ONE 

VIDEO GRAFFITI 

FREE 


ZX81 □ ZX SPECTRUM □ Please tick 

DBA LER ENQUIRIES WELCOME EXPOR T PRICES ON APPLICA T 

FINAL TOTAL 


ON 


SINCLAIR PROGRAMS January 1984 


55 































SINCLAIR PROGRAMS January 1984 


6 10 FOR f-0 TO 32 

620 PRINT AT 0 ,8)9.9'. TO 32> 

630 LET &*-«•< 2 TO >+a*< 1 > 

640 BEEP .01, CODE a*'.f+32V3 
650 NEXT f 

660 BEEP .5,36' RETURN 
1000 BORDER 2- PAPER 1 BRIGHT 1 
■ INK 6 CLS 

1010 PRINT "-LEAVE-ONE 


1O20 PRINT TAB 10; INK 4;"<ll*i9 
3 V 

1O30 PRINT PRINT TAB 2;" Leav 
e-one is a version of Solita 
ire. The object of the game i 

s to jump over Pieces honzo 

nt.ally, vertically or diaQon 

ally, until only one Piece 

remains." 

1040 PRINT PRINT " DON'T CHEA 
T...the SPECTRUM will recog 

mse anv illegal move and 

ignore sou." 

105Q PRINT PRINT " To make a 
move you type the number of 

the column then the number 

of the row. You do this tu 

ice once for the Piece you 

wish to move and then to th 

e Place you wish to jump it 

to. " 

106O PRINT L0; PAPER 1;"PRESS AN 
Y KEY 

1070 IF INKEY*< >”" THEN GO TO 1 
090 

1060 BEEP .1,0 PAUSE 100 GU TO 
1070 

1090 FUR f=l TO 3 BEEP .1,0- BE 
EP .1,19 BEEP .1,24' BEEP .1,7- 
NEXT f■ BEEP .1,0 
1109 DIM zt'. 640 T - PRINT AT 2,0; 
PAPER 1; z*' PRINT AT 6,0;" If v 
ou find yourself in the Posi 

tion that you cannot jump 

another Piece you must pres 

s ~4~.Thi* will abort the 

9ame and you will see an a 

ction replay of your move 

s. If you succeed the SPEC 

TRUM will know and you will 

be congratulated. 

1130 IF INKEY*="“ THEN GU TU 11 
30 

1140 FOR f-1 TO 3- BEEP .24,0- B 
EEP .1,19' BEEP .1,12- BEEP .1,1 
9' NEXT f BEEP .1,24 
1150 RETURN 

9999 SAVE "LEAVE-UNE" LINE 10 





FOOTBALL POOLS 
PROGRAM 

• The program lists out. .in order of preference, the sixteen most 
likely score-draws: also the sixteen most likely homes, draws 
and aways. 


• It picks out the results on the bookmakers' FIXED ODDS 
coupons that have been given over-generous odds. Calcu¬ 
lates your expected profit! 


• The program will be initialised to the English and Scottish 
league tables. You will be able to update these league tables 
week by week as results come in — or enter a complete new 
set of league tables in other words, the program will never 
become "out of date"! 


• All programs are recorded on a top quality cassette (usually 
Sony) and are accompanied with an instruction leaflet giving a 
brief explanation of the theory. 


Available for the ZX-81 16K (Price £8.95) and the 
ZX Spectrum 48K (Price £9.95) from: 


HARTLAND SOFTWARE 

(Dept. R), 8 Penzance Place, 

London W11 4PA. 


SPECTRUM 

DUAL FUNCTION 
JOYSTICK INTERFACE 
£13 95,nc 

WHY PAY £35 FOR 2 
INTERFACES WHEN YOU CAN 
BUY OUR DUAL INTERFACE FOR 
JUST £13.95 INC. 

FEATURES 

★ Compatible with any software that 

list the Kempston Joystick. _ 

★ Compatible with any software that uses cursor keys. 

★ Compatible with most Psion/Melbourne House games e g 
Terror Daktil. Horace Goes Ski-ing etc 

★ Allows the use of Atari/Le Stick type joystick. 

★ Eight directions can be programmed in simple basic. 

★ Free draw programme and full instructions supplied. 

STANDARD INTERFACE FEATURES 

Same as Dual Interface 

★ But only compatible with any software that lists the 
Kempston Joystick 



ZX-81 /SPECTRUM 

LOADING PROBLEMS SOLVED WITH 

The CODER as reviewed in the Sinclair User 
August ‘83£9.95 INC 


DUAL INTERFACE.£13.95 inc 

STANDARD INTERFACE .£10.95 inc 

£1 discount if joystick ordered with any interface 
e g. Dual/lnt & Joystick £19.45 inc 
Send Cheques/P.O. to: 

JILES ELECTRONICS 

48 Parkway, Chellaston. Derby DE7 1QZ. Tel: (0332 703892) 
_ Overseas orders add £2.00 



More 

fun & games from your 

Spectrum 

wilh the intelligent 

interface+program+joystick 

and for only 

£34.90 


Interlace: * for Speclrum 
• Ik on board memory * own rear edge 
connector - for printers etc * compatible 
with ALL standard joysticks 
Joystick: * sell centring • 8 directional 
microswitched action • 2 independent 
tire buttons Tape: ' easy to use program, 
the interlace WORKS ON ALL 
SOFTWARE ‘ keeps a record ol all your 
games - so you only need to tell it about 
each game oncel 


58 


SINCLAIR PROGRAMS January 1984 

















BARGAIN-HUNTERS 
READ THIS! 

Whatever your model of Sinclair computer—you can get 
HOURS of fun, intellectual satisfaction and education for just 
95p per month! 

A bargain ? 

That’s Sinclair Programs magazine—the fat, glossy 
magazine that’s PACKED with original, tested programs for 
you to load and run. 

With Sinclair Programs every month you can build the 
library of programs that suits your mood: in recent issues 
we have challenged our readers with programs to test their 
skill at Sharpshooter or Laser Cannon . . . jolt their brain 
cells with Quadratic Equation or Monster Maths ... or take 
a practical turn with their own word processor program or 
graphic generator. 

yours TODAY from your newsagent, or fill ^ okfts? OIvCi %K\\ etvC ^° S tW* 0 ® 

every month. _ ^ ~.-** ' 


That is just a fraction of what you get from Sinclair 
Programs. Each month we have 40 programs for owners of 
ZX80s, ZX81s and Spectrums. But make sure you don't 
have to hunt TOO far for your bargains— Sinclair 
Programs always sells out quickly, so order 



• ■"VAaft^O" cind 






, o^ eI ^ 


cvte^ e ' 


Now you can take a new 

AMERICAN look at your Sinclair! 


With the new Timex Sinclair User magazine to link YOU into a 
huge network of American enthusiasts 


Published monthly since May, 
Timex Sinclair User has taken 
the States by storm. It is 
packed full of news, reviews, 
programs and user information 
. . . linking you into the vast 
Timex Sinclair User network. 


Remember, this is a new 
magazine written from the 
American viewpoint — but it 
could open up whole new 
horizons for you on your 
Sinclair enjoyment. Take the 
new American view by 
ordering right away and see 
how the U.S.A. welcomed the 
Sinclair! 


The success of the Sinclair ZX80, ZX81 and 
Spectrum in the U.K. has been phenomenal. But in 
the States the Sinclair has been given a real 
American welcome — making the Sinclair range the 
biggest seller in the world! The American ZX81 
equivalent: "The Timex Sinclair 1000" from the 
giant Timex organisation, has been bought by 
hundreds of thousands of enthusiasts. 


i 


i 

i 

h 


Send to: TIMEX SINCLAIR USER. ECC Publications Ltd.. 

196-200 Balls Pond Road, London N1 4AQ 
Yes, I want to subscribe to TIMEX SINCLAIR USER at the 
special U.K. rate of £20 for 12 issues delivered to my door. 

Name_ 

Address__ 


I enclose a cheque/P.O. for £_ 

Please charge my credit card 

Card Name_Card Number_ 

Signature_Date_ 

N.B. This offer applies to UK subscribers only. Overseas rates available on request. 



N.B. Suoscribers to Sinclair Programs or Sinclair Projects should be aware that Timex 
Sinclair User will occasionally reproduce top articles that hBve appeared in our U.K. 
magazines. 


The success of 'Sinclair User' magazine in the U.K. 
followed a similar pattern so now we have 
matched the U.S.A. enthusiasm with a brand new 
U.S.A. magazine - the Timex Sinclair User! 

Annual subscription rate is £20. Single copes are 
£2 (including P & P). 


Fill in the order form 
NOW to discover the 
American way of 
computing! 



SINCLAIR PROGRAMS January 1984 


59 







mathematician. It is for the 


10 60 

21 2 

7/f'* 



?<& 


1 00 SUB 305 

2 PRINT AT 6,0;"PLEASE TYPE Y 
OUR NAME AND PRESS ENTER" 

4 INPUT N* 

5 CLS 

6 PRINT TAB 2;"HELLO/";NS 
10 LET Y-10 

20 LET X-0 

20 PRINT AT 3,0;"SKILL 1/2 UR 
3 ?" 

40 INPUT A* 

50 LET A*INT <RND*10) 

60 LET B-INT <RND*10) 

70 LET C-INT <RND*10> 

80 LET D-1NT <RND*10) 

85 LET E-INT <RND*10> 

87 LET F-INT <RND*10) 

90 CLS 

100 PRINT AT Y,X;"<197'194 195 

>" 

110 PRINT AT Y+1,X;“<i9S'3*isP) 

120 PRINT AT Y+2,XJ"'. 19?'94 isP 
,93 94)" 

130 PRINT AT 13/0;"- 


150 IF A*»"l" THEN PRINT AT 5/ 
0 j A; " + "; B 

160 IF A*""2" THEN PRINT AT 5/ 
0;C j;D 

165 IF A«-"3" THEN PRINT AT 5/ 
0;E;"-";F 
170 LET H-A+B 


1B0 LET K-C*D 
185 LET M-E-F 
190 INPUT 2 

200 IF A»-"l" AND Z-H THEN 00 
TO 250 

210 IF A*- "2" AND Z-K THEN GO 
TO 250 

215 IF A**"3" AND Z-M THEN GO 
TO 250 

218 FOR J-l TO 3' OEEP . 1 / -30' 
NEXT J 

220 PRINT AT 15/0;"WRONG" 

225 LET X-X-l 

226 IF X<0 THEN CLS ■ GO TO 10 
230 PAUSE 100 

240 GO TO 50 

250 PRINT AT 9/X+2;"<isP■93>" 

252 IF A*-"l" AND Z-H THEN PRI 
NT AT 5/3; "-";H 

253 IF A*="2" AND Z-K THEN PRI 
NT AT 5/3; M -";K 

254 IF A*-"3" AND Z-M THEN PRI 
NT AT 5/3; M -";M 

255 LET X-X+l 

265 ir X-10 OR X-13 OR x-15 THE 
N PRINT AT 15/3;"Good ";N* 

266 IF X-10 OR X-12 OR X-15 THE 
N PRINT AT 16/3; "keeP 9oin9" 

270 IF X<24 THEN GO TO 300 
272 BEEP .4,19' BEEP .2/10 
275 PRINT AT 12,29;"<95)" 

270 PRINT AT 13,29;"<95)" 

280 PRINT AT 14,15;" WELL DONE 

285 PRINT AT 15,15;N* 


286 LET t-FN t<) 

288 PRINT AT 20,5;"Time taken - 
";t-tl;"seconds" 

290 STOP 
300 PAUSE 50 
302 GO TO S0 

305 PRINT AT 7,11;"ARITHMETIC" 

306 PRINT AT 3,11;"EXPRESS" 

307 PAUSE 300 

308 CLS 

311 PRINT AT 0,3; "The tram is 
now waiting for the driver" 

312 PRINT 

313 PRINT "You must obtain corr 
ect answers to move the tram" 

314 PRINT 

315 PRINT "Wron9 answers Put th 
e train into reverse" 

316 PRINT ■ PRINT "You should t 
ry to improve your time of ar 
rival" 

317 PRINT 

318 PRINT "Time taken is shown 
on arrival" 

319 PAUSE 800- CLS 

320 DEF FN t<>=< 65536*PEEK 2367 
4+256*PEEK 23673+PEEK 23672V50- 

REM secs since start 
325 LET tl-FN t<) 

350 RETURN 


60 


SINCLAIR PROGRAMS January 1984 























C ATCH the apples in your basket 
as the windfalls fall from the 
trees. Beware, because Farmer 
Haynes is on the prowl and if he catches 
you he will have your guts for garters. 

Windfall was written for the 16K 
ZX-81 by Nicky Thorpe, aged 14, of 
Ashford, Kent. 


1 REM “APPLE" 

2 LET Y-13 

3 LET 2-0 

10 PRINT AT 0,10;“ <4*isP> 

20 PRINT AT 1,10;" <6*isP> " 
30 PRINT AT 2 ,i0;"<b*isp>" 

40 PRINT AT 2, 10; " <.6*isP> " 
50 PRINT AT 4,10;" <4*isP> 

60 PRINT AT 5,10;" <2*lsP> 

70 PRINT AT 6, 10; " <2*i*P.' 1 

80 PRINT AT 7,10;" <2*i*P> 
90 PRINT AT 8,10;" <2*isP) 


95 PRINT AT 8,0;"<.32*9h>" 

96 PRINT AT 21,0;"<32*1SP >“ 
110 PRINT AT 4,11;"*" 

120 PRINT AT 4,16;"*" 

120 PRINT AT 2,10;"*" 

140 PRINT AT 3,17;"*" 


141 PRINT AT 9,0;"< xsP T 30*sP ? 


142 PRINT 

143 PRINT 

144 PRINT 

145 PRINT 

146 PRINT 

147 PRINT 

148 PRINT 

149 PRINT 

150 LET X= 
lbl PRINT 

152 PRINT 

153 PRINT 

154 LET A' 

156 LET B' 

157 PRINT 


"<ISP 3U*sP isP V 
isP 30*sP ' isP y 
"< isP 20*sP ■ isP 
"< isP ■ 20*sP isP )" 
isP T 30*sP 1 isP >" 
"< isP 30*sP ' ISP 
"< ISP • 30 *sp ISP y 
"<isP ! 30*sP ISP y 
>20 

"<ISP'30*sP 1 ISP >" 
“< isp ; 30*sP ■ isp )" 

"< ISP ‘30*SP isP >" 
■INT <RND*10+e.' 

'10 

AT B,A;"*“;AT 8-1,1 


158 LET B-B+l 

170 IF INKEY*-"S" THEN LET Y-Y- 

1 

100 IF 1NKEY*=“8" THEN LET Y-Y+ 


185 IF B-X AND A-Y+l THEN GOTO 
360 

186 IF B-X AND R-Y+2 THEN GOTO 
300 

190 IF Y<1 THEN LET Y-Y+l 
192 PRINT AT 19,6;" 

200 IF Y>26 THEN LET Y-Y-l 
205 IF B“2l THEN GOTO 400 
210 PRINT AT X,Y;" <9W'94' * " 
220 GOTO 157 
300 LET 2-2+5 

305 PRINT AT 0,0;"SCORE-";2 
310 GOTO 154 
400 CLS 

410 PRINT "YOU DROPPED AN APPLE 

411 PRINT "AND THE FARMER GOT Y 


413 PRINT 

415 PRINT "YOU SCORED ";2 
420 PRINT 

430 PRINT "DU YOU WISH TO PLAY 
AGAiN ?" 

435 PRINT 

437 PRINT “ <Y> OR <N> " 

440 IF INKEY*-"Y" THEN GOTO SO0 

450 iF 1NKEY*="N" THEN GOTO 600 

460 IF INKEYSO"" THEN GOTO 440 

470 GOTO 440 

500 CLS 

510 GOTO 1 

600 CLS 

€10 PRINT AT 10,10;"ok 9oodb*e" 
620 STOP 


62 


SINCLAIR PROGRAMS January 1984 




saoaffoaoem 


P OOR OLD FREDDIE has fallen 
from an aeroplane on a cold win¬ 
ter day without his parachute. 
Guide Freddie using keys 5 and 8 to¬ 
wards a lake which will break his fall. 
Unfortunately the lake is frozen but’ 


there is a small break in the ice into 
which you must manoeuvre Freddie. 

Save Freddie was written by David 
Knight of Newcastle-under-Lyme, 
Staffs. To run the program type “RUN 
300” then NEWLINE. 


50 

60 

70 
80 
30 
100 
15)0 
E... 
160 
170 
180 
190 
200 
210 
220 
230 
iiP >' 
240 
250 
300 
310 
320 
500 


PRINT RT X/V;"fl" 

LET Y«Y-<1NKEY*«"5">+<INKEY 
1 > 

LET X-X+X/X 
PRINT RT X,Yj'\i M >"j 
IF XOL THEN GOTO 50 
IF YOG THEN GOTO 500 
PRINT "BRRR,ITS COLD IN HER 

LET T*T+L/L 
PRUSE L#L 

CLS 

LET X»L/L 
PRINT T 

LET Y*INT <RND*L>H_/L 
LET G=INT <RND*LHL/L 
PRINT RT L,G-G;"<isP*21#0h« 

PRINT RT L jQ}“ " 

GOTO 50 
LET L=l9 
LET T*L-L 
GGTG 180 
PRINT "SPLRTTU" 



J OHN WEST, aged 11, of 
Mumbles, Swansea wrote It’s 
snowing again for the IK ZX-81. 
Dodge the superfast snowflakes 
heading straight for you as you rush 
home from school, late for your dinner. 
Use keys 5 and 8 to escape a soaking. 
You receive 10 points for every snow¬ 
flake which misses you. 


10 LET fl=ll 
20 LET S-6 

30 PRINT RT 2l,INT <. RNDY26 l>i“t 
***" 

40 PRINT RT 0,fl; 

50 IF PEEK (PEEK 1639e+256*PEE 
K 16399>«23 THEN GOTO 120 
60 PRINT "V" 

70 SCROLL 

80 IF INKEY*-"5" THEN LET fl-R- 

1 

90 IF INKEY*-"8" THEN LET R-R+ 

1 

100 LET S-S+10 

110 GOTO 30 

120 PRINT RT 0,0;S 


IT S SNOWING AGAIN 



SINCLAIR PROGRAMS January 1984 


63 






HAVE A HAPP 

i 

Here’s a sure-fire way of making certain 1984 is packed full of fun for you and your friends. We’ve searched for 
brilliant new program sources throughout the U.K. and North America to find an exciting collection of new 
games — and business programs — many of which cannot be bought by mail order from any other source! 

These are our latest exclusive offerings. 




SNOOKER • 

Visions Snooker brings all the excitement 
and all the tension of big time 
tournaments to your TV set. 

With an advanced program written by a 
19 year old undergraduate at Queens 
College Cambridge, it makes Pot 
Black look like a load of old balls. 
Visions Snooker for the 16K 
ZX Spectrum. It’s an exciting test of 
your skills on the cue. 

Cassette price: £8.95. 

Ref. No: 2-53 


PITMAN SEVEN 

Your mission is to rescue two teams of 
seven desperate men, trapped 
underground on level five. You must 
bring each man to the surface, 
surviving the dangers you meet 
en route. 

ZX Spectrum 48K. 

Cassette price: £6.95. 

Ref. No: 2 52 


GREAT VALUE! TREMENDOUS SELECTION! PLUS A FREE 
OFFER EVERY TIME! 


Rll in the order 
delivery, quality 
come back for 


form right away — we're guaranteeing fast 
and satisfaction [after all, we want you to 
more!) 


The Software Workshop, Yew Tree, Selborne, 
Hants GU34 3JP 


FREE BLANK C15 COB 
WITH EVERY TWO CAS£ 

Remember there's no limit 
cassettes you receive if your c 
why not get together with 
members and share 


guara 


Order with complete co 
not entirely satisfied W 

your purchase returr 
w Drovi 










Y NEW YEAR! 


And here’s a further selection of 
the latest games, the best-value software 
for your ZX-81 or Spectrum. 



to the number of free 
irder justifies them — so 
friends or user group 
: the freebies? 


>. |f you are 
quality of 
; within 7 

placement. 


SHEER PANIC 

Mining for Magnetic Quartz is 
a hazardous business. You 
have to ensure that there is 
plenty ol oxygen to breathe, 
fight off the local monsters with 
only a shovel and counter 
interference with your 
consciousness. 

ZX Spectrum 16K or 48K. 
Cassette price: £5.95. 

2-51 


ZX81 Software 

1 -01 Stock Market 

Buy and seK your way to milhons 1 

16KRAM 

£3.95 

1 -02 Football League 

First, division fun for the soccer 
enthusiast 16K RAM 

£3.95 

1 -03 Test Match 

Match your wits alongside die 
superstars 16K RAM 

£3.95 

1-12 Avenger 

Avoid missiles and bombs to become the 
ruler 16KRAM 

£4.95 

1-13 Protector 

Defend your own ship from oncoming 
attackers 1BK RAM 

£4.95 

1-31 Comp-U-Share 

Investment management program tor 
unit trusts, shares and loan stocks. 
Complete documentation included 

1 BK RAM 

£9.95 

Spectrum Software 

2-13 Sentinel 

Guard your mother ship against alien 
attacks 48K RAM 

£4.95 


2-14 Meteor Storm 

Spectrum version of the ever-populaf 
arcade game 1 BK or 48K RAM 

£4.95 

2-15 Star Trek 

Popular space program brought to We by 
excellent graphics 48K RAM 

£4.95 

2-21 Frogger 

Manoeuvre the frog across the road 
avoiding heavy traffic 48K RAM 

£5.95 

2-22 Crazy Balloons 

Guide the balloons round the maze 
without bur-sung 48K RAM 

£5.95 

2-23 Arcadia 

The expert's version of the popular 

Invaders game 16K or 48K RAM 

£5.95 

2-24 Golf 

The finest of golf handicap games 

48K RAM 

£5.95 

2-25 Test Match 

More exciting than the real thing 1 

48K RAM 

£5.95 

2-26 Derby Day 

This favourite has to be a wviner 

48KRAM 

£5.95 

2-41 Comp-U-Share 

See 1 -31 under ZX81- 48K RAM 

£9.95 


To: The Software Workshop, Yew Tree, Selborne, Hants GU34 3JP*^ 

I wish to order the following programs. I understand that: "9 

* I will receive a FREE blank cassette with every 2 programs ordered 

* I can return products within seven days if not entirely satisfied and 
receive a replacement. 


Ref No 

Qty 

Title 

Price 

























D ostage. packing and handling: add 45p for the 

first cassette, and 25p for each additional 

cassette. Non-UK orders add extra 50% Total 



■ I I enclose a cheque/postal order for_: 
i Name_ 


t Address _ 



i[Allow 28 days MAXIMUM FOR DELIVERY] 




































THE GOOD 
COMPUTING 
BOOK FORI 


If you only buy ONE 
computing book 

THIS IS 
THE 

CLASSIC! 

An entertaining, but thorough reference source 
with the most readable, comprehensive glossary 
you’ll find anywhere. The Good Computing Book 
for Beginners is an essential A-Z of all the facts you 
need to know about computing — and none you 

don’t! 

Whether you're brand new to computing, or an old 
hand keen to stay ahead, you’ll score by keeping this 
classic, top-selling book within reach to use again and 

again. 

The author, Dennis Jarrett, is a successful journalist 
who was also founder editor of Which Computer! 
magazine — so his first edition quickly became a 
standard work. Now this new, substantially 
enlarged and revised edition covers the latest 
trends, terms and technology with the relevant facts 
— and ONLY the relevant facts — in plain English. 



Here’s another fact you’ll find fascinating: it will only 

cost you £2.95! 

Use the coupon below to get your copy right away 
— or buy it soon from your bookshop. It’s the one 
book you’ll turn to again and again. 





m? 










































DOOMSDAY 

CASTLE 

Is an arcade style game 
with the feel 
of a real adventure 



FANTASY SOFTWARE, FALCONBERG LODGE, 27A ST GEORGES ROAD, CHELTENFIAM, GLOS GL50 3DT 
despatched by return first class post together with free membership and current newsletter of the Fantasy Micro Club, 
Trade Enquiries welcome - telephone 0242-583661. 


Doomsday Castle consists of a labyrinth of 76 complexly inter-connected Halls and Passages 
where you will meet a whole host of adversaries serving the infinitely evil Scarthax, the Garthrogs, 
the Orphacs, the phenomenally nasty Googly Bird and the Urks which manifest themselves in over 
fifty unbelievably weird and wonderful guises. 

Scarthax has scoured the Universe to bring together the six ancient stones of lifeforce. United in 
Doomsday Castle they are being used to wield an irresistable power over the cosmos, emanating 
waves of corruption through every galaxy. 

To save the Universe, you must battle your way through the Castle to find and collect the six 
stones and use their force against 

Scarthax to destroy Doomsday ( . 

Castle, hopefully escaping 
yourself before the final 
cataclysmic explosion. 

The task is not easy 
(saving the Universe 
never is!) and It will 
take youmany games to 
unfold the structure 
of D<jpmsday Castle and 
discover the locations of the 
ancient stones. The addictive 
arcade style action will keep you 
coming back to play but the 
overall challenge should still 
keep you occupied for months. 


FANTASY SOFTWARE 

is available from 
W.H.SMITHS, JOHN MENZIES, 
LASKYS, GREENS, RUMBELOWS, 
SPECTRUM GROUP, 
COMPUTERS FOR ALL and all other 
good software retailers. 


For 48K 
Spectrum